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