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
   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   dir @srcdir@/../libiberty
  20   dir @srcdir@/../bfd
  21   dir @srcdir@
  22   dir .
  23
  24   # Commands below are not fully compatible with wrapping into an 'if' block.
  25 end
  26
  27 set prompt (top-gdb)
  28
  29 define pdie
  30   if $argc == 1
  31     call dump_die ($arg0, 1)
  32   else
  33     if $argc == 2
  34       call dump_die ($arg0, $arg1)
  35     else
  36       printf "Syntax: pdie die [depth]\n"
  37     end
  38   end
  39 end
  40
  41 document pdie
  42 Pretty print a DWARF DIE.
  43 Syntax: pdie die [depth]
  44 end