1234567891011121314151617181920212223242526272829303132333435363738394041424344 |
- 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
|