45 lines
866 B
Text
45 lines
866 B
Text
|
echo Setting up the environment for debugging gdb.\n
|
||
|
|
||
|
if !$gdb_init_done
|
||
|
set variable $gdb_init_done = 1
|
||
|
|
||
|
set complaints 1
|
||
|
|
||
|
b internal_error
|
||
|
|
||
|
# This provides an easy way to break into the top-level GDB by
|
||
|
# typing "info".
|
||
|
b info_command
|
||
|
commands
|
||
|
silent
|
||
|
# This avoids the voluminous output of "info".
|
||
|
return
|
||
|
end
|
||
|
|
||
|
dir /home/seti/riscv-gnu-toolchain/gdb/gdb/../libiberty
|
||
|
dir /home/seti/riscv-gnu-toolchain/gdb/gdb/../bfd
|
||
|
dir /home/seti/riscv-gnu-toolchain/gdb/gdb
|
||
|
dir .
|
||
|
|
||
|
# Commands below are not fully compatible with wrapping into an 'if' block.
|
||
|
end
|
||
|
|
||
|
set prompt (top-gdb)
|
||
|
|
||
|
define pdie
|
||
|
if $argc == 1
|
||
|
call dump_die ($arg0, 1)
|
||
|
else
|
||
|
if $argc == 2
|
||
|
call dump_die ($arg0, $arg1)
|
||
|
else
|
||
|
printf "Syntax: pdie die [depth]\n"
|
||
|
end
|
||
|
end
|
||
|
end
|
||
|
|
||
|
document pdie
|
||
|
Pretty print a DWARF DIE.
|
||
|
Syntax: pdie die [depth]
|
||
|
end
|