blob: 53dca0e08feac8a7608fda230406f528383b046a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
echo Setting up the environment for debugging gdb.\n
if !$gdb_init_done
set variable $gdb_init_done = 1
set complaints 1
b internal_error
# This provides an easy way to break into the top-level GDB by
# typing "info".
b info_command
commands
silent
# This avoids the voluminous output of "info".
return
end
dir @srcdir@/../libiberty
dir @srcdir@/../bfd
dir @srcdir@
dir .
# Commands below are not fully compatible with wrapping into an 'if' block.
end
set prompt (top-gdb)
define pdie
if $argc == 1
call dump_die ($arg0, 1)
else
if $argc == 2
call dump_die ($arg0, $arg1)
else
printf "Syntax: pdie die [depth]\n"
end
end
end
document pdie
Pretty print a DWARF DIE.
Syntax: pdie die [depth]
end
|
