gdb/gdb-gdb.gdb.in

   1 echo Setting up the environment for debugging gdb.\n
   2
   3 if !$gdb_init_done
   4   set variable $gdb_init_done = 1
   5
   6   set complaints 1
   7
   8   b internal_error_loc
   9
  10   # This provides an easy way to break into the top-level GDB by
  11   # typing "info".
  12   b info_command
  13   commands
  14     silent
  15     # This avoids the voluminous output of "info".
  16     return
  17   end
  18
  19   # Commands below are not fully compatible with wrapping into an 'if' block.
  20 end
  21
  22 set prompt (top-gdb)
  23
  24 define pdie
  25   if $argc == 1
  26     call $arg0->dump (1)
  27   else
  28     if $argc == 2
  29       call $arg0->dump ($arg1)
  30     else
  31       printf "Syntax: pdie die [depth]\n"
  32     end
  33   end
  34 end
  35
  36 document pdie
  37 Pretty print a DWARF DIE.
  38 Syntax: pdie die [depth]
  39 end