Basic JDB backtrace support for ARM
This commit is contained in:
Christian Prochaska
committed by
Sebastian Sumpf
Sebastian Sumpf
parent
c24f16b8ab
commit
3854f1b941
@@ -212,7 +212,7 @@ INTERFACES_JDB := jdb_handler_queue jdb_module jdb_pic \
|
|||||||
jdb_trace_set jdb_entry_frame \
|
jdb_trace_set jdb_entry_frame \
|
||||||
jdb_kobject jdb_kobject_names \
|
jdb_kobject jdb_kobject_names \
|
||||||
jdb_util jdb_space jdb_utcb \
|
jdb_util jdb_space jdb_utcb \
|
||||||
jdb_trap_state jdb_ipi jdb_rcupdate \
|
jdb_trap_state jdb_ipi jdb_rcupdate jdb_bt \
|
||||||
jdb_ipc_gate jdb_obj_space jdb_log jdb_factory \
|
jdb_ipc_gate jdb_obj_space jdb_log jdb_factory \
|
||||||
jdb_thread jdb_scheduler jdb_sender_list\
|
jdb_thread jdb_scheduler jdb_sender_list\
|
||||||
jdb_perf jdb_vm jdb_regex jdb_disasm jdb_bp \
|
jdb_perf jdb_vm jdb_regex jdb_disasm jdb_bp \
|
||||||
@@ -231,6 +231,7 @@ jdb_tcb_IMPL := jdb_tcb jdb_tcb-arm
|
|||||||
jdb_ptab_IMPL := jdb_ptab jdb_ptab-ia32-ux-arm jdb_ptab-arm
|
jdb_ptab_IMPL := jdb_ptab jdb_ptab-ia32-ux-arm jdb_ptab-arm
|
||||||
jdb_entry_frame_IMPL := jdb_entry_frame-arm
|
jdb_entry_frame_IMPL := jdb_entry_frame-arm
|
||||||
jdb_trace_set_IMPL := jdb_trace_set jdb_trace_set-arm
|
jdb_trace_set_IMPL := jdb_trace_set jdb_trace_set-arm
|
||||||
|
jdb_bt_IMPL := jdb_bt-arm
|
||||||
jdb_bp := jdb_bp
|
jdb_bp := jdb_bp
|
||||||
thread_IMPL += thread-debug
|
thread_IMPL += thread-debug
|
||||||
|
|
||||||
|
|||||||
474
kernel/fiasco/src/jdb/arm/jdb_bt-arm.cpp
Normal file
474
kernel/fiasco/src/jdb/arm/jdb_bt-arm.cpp
Normal file
@@ -0,0 +1,474 @@
|
|||||||
|
IMPLEMENTATION[arm]:
|
||||||
|
|
||||||
|
/* jdb_bt-ia32-ux.cpp adapted for ARM */
|
||||||
|
|
||||||
|
#include <cstdio>
|
||||||
|
#include <cctype>
|
||||||
|
|
||||||
|
#include "config.h"
|
||||||
|
#include "jdb.h"
|
||||||
|
#include "jdb_input.h"
|
||||||
|
#include "jdb_kobject.h"
|
||||||
|
#include "jdb_lines.h"
|
||||||
|
#include "jdb_module.h"
|
||||||
|
#include "jdb_symbol.h"
|
||||||
|
#include "mem_layout.h"
|
||||||
|
#include "keycodes.h"
|
||||||
|
#include "thread_object.h"
|
||||||
|
#include "task.h"
|
||||||
|
|
||||||
|
class Jdb_bt : public Jdb_module, public Jdb_input_task_addr
|
||||||
|
{
|
||||||
|
public:
|
||||||
|
Jdb_bt() FIASCO_INIT;
|
||||||
|
private:
|
||||||
|
static char dummy;
|
||||||
|
static char first_char;
|
||||||
|
static char first_char_addr;
|
||||||
|
static Address addr;
|
||||||
|
static Thread * tid;
|
||||||
|
static Kobject *ko_tid;
|
||||||
|
static Space * task;
|
||||||
|
};
|
||||||
|
|
||||||
|
char Jdb_bt::dummy;
|
||||||
|
char Jdb_bt::first_char;
|
||||||
|
char Jdb_bt::first_char_addr;
|
||||||
|
Address Jdb_bt::addr;
|
||||||
|
Thread * Jdb_bt::tid;
|
||||||
|
Space *Jdb_bt::task;
|
||||||
|
Kobject *Jdb_bt::ko_tid;
|
||||||
|
|
||||||
|
// determine the user level ebp and eip considering the current thread state
|
||||||
|
static void
|
||||||
|
Jdb_bt::get_user_eip_ebp(Address &eip, Address &ebp)
|
||||||
|
{
|
||||||
|
if (!task)
|
||||||
|
{
|
||||||
|
// kernel thread doesn't execute user code -- at least we hope so :-)
|
||||||
|
ebp = eip = 0;
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
Thread *t = tid;
|
||||||
|
Address tcb_next = (Address)context_of(t->get_kernel_sp()) + Context::Size;
|
||||||
|
Mword *ktop = (Mword *)(Cpu::stack_align(tcb_next));
|
||||||
|
#if 0
|
||||||
|
Jdb::Guessed_thread_state state = Jdb::guess_thread_state(t);
|
||||||
|
|
||||||
|
eip = ktop[-5];
|
||||||
|
#endif
|
||||||
|
|
||||||
|
eip = t->user_ip();
|
||||||
|
ebp = ktop[-7]; /* r11 */
|
||||||
|
|
||||||
|
#if 0
|
||||||
|
if (state == Jdb::s_ipc)
|
||||||
|
{
|
||||||
|
// If thread is in IPC, EBP lays on the stack (see C-bindings). EBP
|
||||||
|
// location is by now dependent from ipc-type, maybe different for
|
||||||
|
// other syscalls, maybe unstable during calls but only for user EBP.
|
||||||
|
Mword entry_esp = ktop[-2];
|
||||||
|
Mword entry_ss = ktop[-1];
|
||||||
|
|
||||||
|
if (entry_ss & 3)
|
||||||
|
{
|
||||||
|
// kernel entered from user level
|
||||||
|
if (eip >= Mem_layout::Syscalls)
|
||||||
|
{
|
||||||
|
if ((entry_esp & (sizeof(Mword)-1))
|
||||||
|
|| !Jdb::peek((Address*)entry_esp, task, eip))
|
||||||
|
{
|
||||||
|
printf("\n esp page invalid");
|
||||||
|
ebp = eip = 0;
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
entry_esp += sizeof(Mword);
|
||||||
|
}
|
||||||
|
|
||||||
|
if ((entry_esp & (sizeof(Mword)-1))
|
||||||
|
||!Jdb::peek((Mword*)entry_esp, task, ebp))
|
||||||
|
{
|
||||||
|
printf("\n esp page invalid");
|
||||||
|
ebp = eip = 0;
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else if (state == Jdb::s_pagefault)
|
||||||
|
{
|
||||||
|
// see pagefault handler gate stack layout
|
||||||
|
ebp = ktop[-6];
|
||||||
|
}
|
||||||
|
else if (state == Jdb::s_slowtrap)
|
||||||
|
{
|
||||||
|
// see slowtrap handler gate stack layout
|
||||||
|
ebp = ktop[-13];
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
// Thread is doing (probaly) no IPC currently so we guess the
|
||||||
|
// user ebp by following the kernel ebp upwards. Some kernel
|
||||||
|
// entry pathes (e.g. timer interrupt) push the ebp register
|
||||||
|
// like gcc.
|
||||||
|
ebp = get_user_ebp_following_kernel_stack();
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
|
||||||
|
}
|
||||||
|
#if 0
|
||||||
|
static Mword
|
||||||
|
Jdb_bt::get_user_ebp_following_kernel_stack()
|
||||||
|
{
|
||||||
|
if (!Config::Have_frame_ptr)
|
||||||
|
return 0;
|
||||||
|
|
||||||
|
Mword ebp, dummy;
|
||||||
|
|
||||||
|
get_kernel_eip_ebp(dummy, dummy, ebp);
|
||||||
|
|
||||||
|
for (int i=0; i<30 /* sanity check */; i++)
|
||||||
|
{
|
||||||
|
Mword m1, m2;
|
||||||
|
|
||||||
|
if ( (ebp == 0) || (ebp & (sizeof(Mword)-1))
|
||||||
|
|| !Jdb::peek((Address*)ebp, 0 /*kernel*/, m1)
|
||||||
|
|| !Jdb::peek((Address*)ebp+1, 0 /*kernel*/, m2))
|
||||||
|
// invalid ebp -- leaving
|
||||||
|
return 0;
|
||||||
|
|
||||||
|
ebp = m1;
|
||||||
|
|
||||||
|
if (!Mem_layout::in_kernel_code(m2))
|
||||||
|
{
|
||||||
|
#if 0
|
||||||
|
if (m2 < Kmem::mem_user_max)
|
||||||
|
// valid user ebp found
|
||||||
|
return m1;
|
||||||
|
else
|
||||||
|
// invalid ebp
|
||||||
|
return 0;
|
||||||
|
#endif
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
struct Is_current
|
||||||
|
{
|
||||||
|
Thread *tid;
|
||||||
|
mutable Thread *c;
|
||||||
|
mutable Cpu_number cpu;
|
||||||
|
|
||||||
|
void operator () (Cpu_number _cpu) const
|
||||||
|
{
|
||||||
|
Thread *t = Jdb::get_thread(_cpu);
|
||||||
|
if (t == tid)
|
||||||
|
{ c = t; cpu = _cpu; }
|
||||||
|
}
|
||||||
|
|
||||||
|
};
|
||||||
|
|
||||||
|
static void
|
||||||
|
Jdb_bt::get_kernel_eip_ebp(Mword &eip1, Mword &eip2, Mword &ebp)
|
||||||
|
{
|
||||||
|
if (tid == Jdb::get_current_active())
|
||||||
|
{
|
||||||
|
ebp = (Mword)__builtin_frame_address(3);
|
||||||
|
eip1 = eip2 = 0;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
Is_current is_current;
|
||||||
|
|
||||||
|
is_current.tid = tid;
|
||||||
|
is_current.c = 0;
|
||||||
|
is_current.cpu = Cpu_number(0);
|
||||||
|
|
||||||
|
Jdb::foreach_cpu(is_current);
|
||||||
|
|
||||||
|
Mword *ksp;
|
||||||
|
Mword tcb;
|
||||||
|
|
||||||
|
if (is_current.c)
|
||||||
|
{
|
||||||
|
ksp = (Mword*)Jdb::entry_frame.cpu(is_current.cpu)->sp();
|
||||||
|
tcb = (Mword)is_current.c;
|
||||||
|
printf("\n current on cpu %u\n", cxx::int_value<Cpu_number>(is_current.cpu));
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
ksp = (Mword*) tid->get_kernel_sp();
|
||||||
|
tcb = Mword(tid); //Mem_layout::Tcbs + tid.gthread()*Context::size;
|
||||||
|
}
|
||||||
|
|
||||||
|
Mword tcb_next = tcb + Context::Size;
|
||||||
|
|
||||||
|
// search for valid ebp/eip
|
||||||
|
for (int i=0; (Address)(ksp+i+1)<tcb_next-20; i++)
|
||||||
|
{
|
||||||
|
if (Mem_layout::in_kernel_code(ksp[i+1]) &&
|
||||||
|
ksp[i] >= tcb+0x180 &&
|
||||||
|
ksp[i] < tcb_next-20 &&
|
||||||
|
ksp[i] > (Address)(ksp+i))
|
||||||
|
{
|
||||||
|
// valid frame pointer found
|
||||||
|
ebp = ksp[i ];
|
||||||
|
eip1 = ksp[i+1];
|
||||||
|
eip2 = ksp[0];
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
ebp = eip1 = eip2 = 0;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/** Show one backtrace item we found. Add symbol name and line info */
|
||||||
|
static void
|
||||||
|
Jdb_bt::show_item(int nr, Address ksp, Address addr, Address_type user)
|
||||||
|
{
|
||||||
|
char buffer[74];
|
||||||
|
|
||||||
|
printf(" %s#%d " L4_PTR_FMT " " L4_PTR_FMT "", nr<10 ? " ": "", nr, ksp, addr);
|
||||||
|
|
||||||
|
Address sym_addr = addr;
|
||||||
|
if (Jdb_symbol::match_addr_to_symbol_fuzzy(&sym_addr,
|
||||||
|
user == ADDR_KERNEL ? 0 : task,
|
||||||
|
buffer,
|
||||||
|
56 < sizeof(buffer)
|
||||||
|
? 56 : sizeof(buffer))
|
||||||
|
// if the previous symbol is to far away assume that there is no
|
||||||
|
// symbol for that entry
|
||||||
|
&& (addr-sym_addr < 1024))
|
||||||
|
{
|
||||||
|
printf(" : %s", buffer);
|
||||||
|
if (addr-sym_addr)
|
||||||
|
printf(" %s+ 0x%lx\033[m", Jdb::esc_line, addr-sym_addr);
|
||||||
|
}
|
||||||
|
#if 0
|
||||||
|
// search appropriate line backwards starting from addr-1 because we
|
||||||
|
// don't want to see the line info for the next statement after the
|
||||||
|
// call but the line info for the call itself
|
||||||
|
Address line_addr = addr-1;
|
||||||
|
if (Jdb_lines::match_addr_to_line_fuzzy(&line_addr,
|
||||||
|
user == ADDR_KERNEL ? 0 : task,
|
||||||
|
buffer, sizeof(buffer)-1, 0)
|
||||||
|
// if the previous line is to far away assume that there is no
|
||||||
|
// line for that entry
|
||||||
|
&& (addr-line_addr < 128))
|
||||||
|
printf("\n%6s%s%s\033[m", "", Jdb::esc_line, buffer);
|
||||||
|
#endif
|
||||||
|
putchar('\n');
|
||||||
|
}
|
||||||
|
|
||||||
|
static void
|
||||||
|
Jdb_bt::show_without_ebp()
|
||||||
|
{
|
||||||
|
Mword *ksp = (Mword*) tid->get_kernel_sp();
|
||||||
|
Mword tcb_next = Mword(tid) + Context::Size;
|
||||||
|
|
||||||
|
// search for valid eip
|
||||||
|
for (int i=0, j=1; (Address)(ksp+i)<tcb_next-20; i++)
|
||||||
|
{
|
||||||
|
if (Mem_layout::in_kernel_code(ksp[i]))
|
||||||
|
show_item(j++, (Address)(ksp+i), ksp[i], ADDR_KERNEL);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
static void
|
||||||
|
Jdb_bt::show(Mword ebp, Mword eip1, Mword eip2, Address_type user)
|
||||||
|
{
|
||||||
|
for (int i=0; i<40 /*sanity check*/; i++)
|
||||||
|
{
|
||||||
|
Mword m1, m2;
|
||||||
|
|
||||||
|
if (i > 1)
|
||||||
|
{
|
||||||
|
/* stack layout:
|
||||||
|
*
|
||||||
|
* lr1 <-
|
||||||
|
* fp1 |
|
||||||
|
* ... |
|
||||||
|
* lr2 |
|
||||||
|
* fp2 --
|
||||||
|
*/
|
||||||
|
if ( (ebp == 0) || (ebp & (sizeof(Mword)-1))
|
||||||
|
|| !Jdb::peek((Address*)ebp-1, task, m1)
|
||||||
|
|| !Jdb::peek((Address*)ebp, task, m2))
|
||||||
|
// invalid ebp -- leaving
|
||||||
|
return;
|
||||||
|
|
||||||
|
ebp = m1;
|
||||||
|
#if 0
|
||||||
|
if ( (user==ADDR_KERNEL && !Mem_layout::in_kernel_code(m2))
|
||||||
|
||(user==ADDR_USER && (m2==0 || m2>Kmem::mem_user_max)))
|
||||||
|
// no valid eip found -- leaving
|
||||||
|
return;
|
||||||
|
#endif
|
||||||
|
}
|
||||||
|
else if (i == 1)
|
||||||
|
{
|
||||||
|
if (eip1 == 0)
|
||||||
|
continue;
|
||||||
|
m2 = eip1;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if (eip2 == 0)
|
||||||
|
continue;
|
||||||
|
m2 = eip2;
|
||||||
|
}
|
||||||
|
|
||||||
|
show_item(i, ebp, m2, user);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
PUBLIC
|
||||||
|
Jdb_module::Action_code
|
||||||
|
Jdb_bt::action(int cmd, void *&args, char const *&fmt, int &next_char)
|
||||||
|
{
|
||||||
|
if (cmd == 0)
|
||||||
|
{
|
||||||
|
Address eip, ebp;
|
||||||
|
|
||||||
|
if (args == &dummy)
|
||||||
|
{
|
||||||
|
// default value for thread
|
||||||
|
tid = Jdb::get_current_active();
|
||||||
|
fmt = "%C";
|
||||||
|
args = &first_char;
|
||||||
|
return EXTRA_INPUT;
|
||||||
|
}
|
||||||
|
else if (args == &first_char)
|
||||||
|
{
|
||||||
|
if (first_char == 't')
|
||||||
|
{
|
||||||
|
putstr("\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\033[K");
|
||||||
|
fmt = " thread=%q";
|
||||||
|
args = &ko_tid;
|
||||||
|
return EXTRA_INPUT;
|
||||||
|
}
|
||||||
|
else if (first_char == 'a')
|
||||||
|
{
|
||||||
|
putstr("\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\033[K");
|
||||||
|
fmt = " addr=%C";
|
||||||
|
args = &Jdb_input_task_addr::first_char;
|
||||||
|
return EXTRA_INPUT;
|
||||||
|
}
|
||||||
|
else if (first_char != KEY_RETURN && first_char != ' ')
|
||||||
|
{
|
||||||
|
// ignore wrong input
|
||||||
|
fmt = "%C";
|
||||||
|
return EXTRA_INPUT;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
// backtrace from current thread
|
||||||
|
goto start_backtrace;
|
||||||
|
}
|
||||||
|
else if (args == &ko_tid)
|
||||||
|
{
|
||||||
|
{
|
||||||
|
tid = 0;
|
||||||
|
Kobject* o = ko_tid;
|
||||||
|
|
||||||
|
if (o)
|
||||||
|
tid = Kobject::dcast<Thread_object*>(o);
|
||||||
|
|
||||||
|
if (!tid)
|
||||||
|
{
|
||||||
|
puts(" Invalid thread id");
|
||||||
|
return NOTHING;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
start_backtrace:
|
||||||
|
task = tid->space();
|
||||||
|
get_user_eip_ebp(eip, ebp);
|
||||||
|
|
||||||
|
start_backtrace_known_ebp:
|
||||||
|
printf("\n\nbacktrace (thread %lx, fp=" L4_PTR_FMT
|
||||||
|
", pc=" L4_PTR_FMT "):\n",
|
||||||
|
tid->dbg_info()->dbg_id(), ebp, eip);
|
||||||
|
if (task != 0)
|
||||||
|
show(ebp, eip, 0, ADDR_USER);
|
||||||
|
#if 0
|
||||||
|
if (!Config::Have_frame_ptr)
|
||||||
|
{
|
||||||
|
puts("\n --kernel-bt-follows-- "
|
||||||
|
"(don't trust w/o frame pointer!!)");
|
||||||
|
task = 0;
|
||||||
|
show_without_ebp();
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
Mword eip2;
|
||||||
|
puts("\n --kernel-bt-follows--");
|
||||||
|
get_kernel_eip_ebp(eip, eip2, ebp);
|
||||||
|
task = 0;
|
||||||
|
show(ebp, eip, eip2, ADDR_KERNEL);
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
putchar('\n');
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
Jdb_module::Action_code code;
|
||||||
|
|
||||||
|
switch ((code = Jdb_input_task_addr::action(args, fmt, next_char)))
|
||||||
|
{
|
||||||
|
case ERROR:
|
||||||
|
return ERROR;
|
||||||
|
case NOTHING:
|
||||||
|
task = Jdb_input_task_addr::space();
|
||||||
|
eip = 0;
|
||||||
|
ebp = Jdb_input_task_addr::addr();
|
||||||
|
goto start_backtrace_known_ebp;
|
||||||
|
default:
|
||||||
|
return code;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
} else if (cmd == 1) {
|
||||||
|
if ((args == &dummy) && (dummy == 't'))
|
||||||
|
Jdb::execute_command("bt");
|
||||||
|
|
||||||
|
}
|
||||||
|
return NOTHING;
|
||||||
|
}
|
||||||
|
|
||||||
|
PUBLIC
|
||||||
|
Jdb_module::Cmd const *
|
||||||
|
Jdb_bt::cmds() const
|
||||||
|
{
|
||||||
|
static Cmd cs[] =
|
||||||
|
{
|
||||||
|
{ 0, "bt", "backtrace", " [a]ddr/[t]hread",
|
||||||
|
"bt[t<threadid>][<addr>]\tshow backtrace of current/given "
|
||||||
|
"thread/addr",
|
||||||
|
&dummy },
|
||||||
|
/*
|
||||||
|
* The "bt" command only works with the help of the "b" command,
|
||||||
|
* which is currently not registered by another module on ARM
|
||||||
|
*/
|
||||||
|
{ 1, "b", "b_dummy", "%c",
|
||||||
|
"b\tdummy command to make the 'bt' command work in the\n"
|
||||||
|
"\tabsence of a real 'b' command",
|
||||||
|
&dummy },
|
||||||
|
};
|
||||||
|
return cs;
|
||||||
|
}
|
||||||
|
|
||||||
|
PUBLIC
|
||||||
|
int
|
||||||
|
Jdb_bt::num_cmds() const
|
||||||
|
{
|
||||||
|
return 2;
|
||||||
|
}
|
||||||
|
|
||||||
|
IMPLEMENT
|
||||||
|
Jdb_bt::Jdb_bt()
|
||||||
|
: Jdb_module("INFO")
|
||||||
|
{}
|
||||||
|
|
||||||
|
static Jdb_bt jdb_bt INIT_PRIORITY(JDB_MODULE_INIT_PRIO);
|
||||||
|
|
||||||
@@ -24,9 +24,9 @@ if (!defined $ARGV[0])
|
|||||||
exit 1;
|
exit 1;
|
||||||
}
|
}
|
||||||
|
|
||||||
my $nm = 'nm';
|
my $nm = 'genode-x86-nm';
|
||||||
$nm = "$ENV{'SYSTEM_TARGET'}$nm" if defined $ENV{"SYSTEM_TARGET"};
|
$nm = "$ENV{'SYSTEM_TARGET'}$nm" if defined $ENV{"SYSTEM_TARGET"};
|
||||||
$nm = 'arm-linux-nm' if !(system("file -L $ARGV[0] | grep -qw ARM") >> 8);
|
$nm = 'genode-arm-nm' if !(system("file -L $ARGV[0] | grep -qw ARM") >> 8);
|
||||||
|
|
||||||
while (@ARGV)
|
while (@ARGV)
|
||||||
{
|
{
|
||||||
|
|||||||
Reference in New Issue
Block a user