]>
Commit | Line | Data |
---|---|---|
071cd279 | 1 | define pr |
2 | set debug_rtx ($) | |
3 | end | |
4 | ||
5 | document pr | |
6 | Print the full structure of the rtx that is $. | |
7 | Works only when an inferior is executing. | |
8 | end | |
9 | ||
10 | define prl | |
11 | set debug_rtx_list ($, debug_rtx_count) | |
12 | end | |
13 | ||
14 | document prl | |
15 | Print the full structure of all rtx insns beginning at $. | |
16 | Works only when an inferior is executing. | |
17 | Uses variable debug_rtx_count to control number of insns printed: | |
18 | debug_rtx_count > 0: print from $ on. | |
19 | debug_rtx_count < 0: print a window around $. | |
20 | ||
21 | There is also debug_rtx_find (rtx, uid) that will scan a list for UID and print | |
22 | it using debug_rtx_list. Usage example: set $foo=debug_rtx_find(first, 42) | |
23 | end | |
24 | ||
25 | define pt | |
26 | set debug_tree ($) | |
27 | end | |
28 | ||
29 | document pt | |
30 | Print the full structure of the tree that is $. | |
31 | Works only when an inferior is executing. | |
32 | end | |
33 | ||
00ae6be7 | 34 | define pct |
35 | set debug_c_tree ($) | |
36 | end | |
37 | ||
38 | document pct | |
39 | Print the tree that is $ in C syntax. | |
40 | Works only when an inferior is executing. | |
41 | end | |
42 | ||
4ee9c684 | 43 | define pgs |
44 | set debug_generic_stmt ($) | |
45 | end | |
46 | ||
47 | document pgs | |
48 | Print the statement that is $ in C syntax. | |
49 | Works only when an inferior is executing. | |
50 | end | |
51 | ||
52 | define pge | |
53 | set debug_generic_expr ($) | |
54 | end | |
55 | ||
56 | document pge | |
57 | Print the expression that is $ in C syntax. | |
58 | Works only when an inferior is executing. | |
59 | end | |
60 | ||
071cd279 | 61 | define ptc |
62 | output (enum tree_code) $.common.code | |
63 | echo \n | |
64 | end | |
65 | ||
66 | document ptc | |
67 | Print the tree-code of the tree node that is $. | |
68 | end | |
69 | ||
70 | define pdn | |
4e84a947 | 71 | output $.decl.name->identifier.id.str |
071cd279 | 72 | echo \n |
73 | end | |
74 | ||
75 | document pdn | |
76 | Print the name of the decl-node that is $. | |
77 | end | |
78 | ||
79 | define ptn | |
4e84a947 | 80 | output $.type.name->decl.name->identifier.id.str |
071cd279 | 81 | echo \n |
82 | end | |
83 | ||
84 | document ptn | |
85 | Print the name of the type-node that is $. | |
86 | end | |
87 | ||
88 | define prc | |
89 | output (enum rtx_code) $.code | |
90 | echo \ ( | |
91 | output $.mode | |
92 | echo )\n | |
93 | end | |
94 | ||
95 | document prc | |
96 | Print the rtx-code and machine mode of the rtx that is $. | |
97 | end | |
98 | ||
99 | define pi | |
48bdfbc8 | 100 | print $.u.fld[0].rt_rtx@7 |
071cd279 | 101 | end |
102 | ||
103 | document pi | |
104 | Print the fields of an instruction that is $. | |
105 | end | |
106 | ||
107 | define pbs | |
108 | set print_binding_stack () | |
109 | end | |
110 | ||
111 | document pbs | |
112 | In cc1plus, print the current binding stack, frame by frame, up to and | |
113 | including the global binding level. | |
114 | end | |
115 | ||
97fce000 | 116 | # Put breakpoints at exit and fancy_abort in case abort is mapped |
117 | # to either fprintf/exit or fancy_abort. | |
97fce000 | 118 | b fancy_abort |
119 | ||
0fb7aaf2 | 120 | # Put a breakpoint on internal_error to help with debugging ICEs. |
121 | b internal_error | |
122 | ||
071cd279 | 123 | # Make gdb complain about symbol reading errors. This is so that gcc |
124 | # developers can see and fix bugs in gcc debug output. | |
125 | set complaints 20 | |
3bdfaae6 | 126 | |
127 | # Don't let abort actually run, as it will make | |
128 | # stdio stop working and therefore the `pr' command above as well. | |
129 | # Put this last because gcc does not reference it any more unless | |
130 | # USE_SYSTEM_ABORT is defined, so gdb may complain and bail out. | |
d62e1a3b | 131 | b exit |
3bdfaae6 | 132 | b abort |