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   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.
  22 end
  23
  24 set prompt (top-gdb)
  25
  26 define 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
  36 end
  37
  38 document pdie
  39 Pretty print a DWARF DIE.
  40 Syntax: pdie die [depth]
  41 end