44 lines
866 B
Text
44 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
|