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 | |
---|
34 | define ptc |
---|
35 | output (enum tree_code) $.common.code |
---|
36 | echo \n |
---|
37 | end |
---|
38 | |
---|
39 | document ptc |
---|
40 | Print the tree-code of the tree node that is $. |
---|
41 | end |
---|
42 | |
---|
43 | define pdn |
---|
44 | output $.decl.name->identifier.pointer |
---|
45 | echo \n |
---|
46 | end |
---|
47 | |
---|
48 | document pdn |
---|
49 | Print the name of the decl-node that is $. |
---|
50 | end |
---|
51 | |
---|
52 | define ptn |
---|
53 | output $.type.name->decl.name->identifier.pointer |
---|
54 | echo \n |
---|
55 | end |
---|
56 | |
---|
57 | document ptn |
---|
58 | Print the name of the type-node that is $. |
---|
59 | end |
---|
60 | |
---|
61 | define prc |
---|
62 | output (enum rtx_code) $.code |
---|
63 | echo \ ( |
---|
64 | output $.mode |
---|
65 | echo )\n |
---|
66 | end |
---|
67 | |
---|
68 | document prc |
---|
69 | Print the rtx-code and machine mode of the rtx that is $. |
---|
70 | end |
---|
71 | |
---|
72 | define pi |
---|
73 | print $.fld[0].rtx@7 |
---|
74 | end |
---|
75 | |
---|
76 | document pi |
---|
77 | Print the fields of an instruction that is $. |
---|
78 | end |
---|
79 | |
---|
80 | define pbs |
---|
81 | set print_binding_stack () |
---|
82 | end |
---|
83 | |
---|
84 | document pbs |
---|
85 | In cc1plus, print the current binding stack, frame by frame, up to and |
---|
86 | including the global binding level. |
---|
87 | end |
---|
88 | |
---|
89 | # Don't let abort actually run, as it will make |
---|
90 | # stdio stop working and therefore the `pr' command below as well. |
---|
91 | b abort |
---|
92 | |
---|
93 | # Make gdb complain about symbol reading errors. This is so that gcc |
---|
94 | # developers can see and fix bugs in gcc debug output. |
---|
95 | set complaints 20 |
---|