1echo Setting up the environment for debugging gdb.\n 2 3if !$gdb_init_done 4 set variable $gdb_init_done = 1 5 6 set complaints 1 7 8 b internal_error 9 10 b info_command 11 commands 12 silent 13 return 14 end 15 16 dir @srcdir@/../libiberty 17 dir @srcdir@/../bfd 18 dir @srcdir@ 19 dir . 20 21 # Commands below are not fully compatible with wrapping into an 'if' block. 22end 23 24set prompt (top-gdb) 25 26define pdie 27 if $argc == 1 28 call dump_die ($arg0, 1) 29 else 30 if $argc == 2 31 call dump_die ($arg0, $arg1) 32 else 33 printf "Syntax: pdie die [depth]\n" 34 end 35 end 36end 37 38document pdie 39Pretty print a DWARF DIE. 40Syntax: pdie die [depth] 41end 42