]>
Commit | Line | Data |
---|---|---|
c906108c SS |
1 | echo Setting up the environment for debugging gdb.\n |
2 | ||
edceb2a9 JK |
3 | if !$gdb_init_done |
4 | set variable $gdb_init_done = 1 | |
c906108c | 5 | |
edceb2a9 | 6 | set complaints 1 |
c906108c | 7 | |
edceb2a9 JK |
8 | b internal_error |
9 | ||
4fd6c7e8 TT |
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 | ||
edceb2a9 JK |
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. | |
c906108c SS |
25 | end |
26 | ||
c906108c | 27 | set prompt (top-gdb) |
d97bc12b DE |
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 |