| 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 @srcdir@/../libiberty |
| dir @srcdir@/../bfd |
| dir @srcdir@ |
| 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 |