gdb-gdb.gdb.in revision 1.6 
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  # 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.
25end
26
27set prompt (top-gdb) 
28
29define 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
39end
40
41document pdie
42Pretty print a DWARF DIE.
43Syntax: pdie die [depth]
44end
45