Commit | Line | Data |
---|---|---|
1a066fca WJ |
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 pt | |
11 | set debug_tree ($) | |
12 | end | |
13 | ||
14 | document pt | |
15 | Print the full structure of the tree that is $. | |
16 | Works only when an inferior is executing. | |
17 | end | |
18 | ||
19 | define ptc | |
20 | output (enum tree_code) $.common.code | |
21 | echo \n | |
22 | end | |
23 | ||
24 | document ptc | |
25 | Print the tree-code of the tree node that is $. | |
26 | end | |
27 | ||
28 | define pdn | |
29 | output $.decl.name->identifier.pointer | |
30 | echo \n | |
31 | end | |
32 | ||
33 | document pdn | |
34 | Print the name of the decl-node that is $. | |
35 | end | |
36 | ||
37 | define prc | |
38 | output (enum rtx_code) $.code | |
39 | echo \ ( | |
40 | output $.mode | |
41 | echo )\n | |
42 | end | |
43 | ||
44 | document prc | |
45 | Print the rtx-code and machine mode of the rtx that is $. | |
46 | end | |
47 | ||
48 | define pi | |
49 | print $.fld[0].rtx@7 | |
50 | end | |
51 | ||
52 | document pi | |
53 | Print the fields of an instruction that is $. | |
54 | end | |
55 | ||
56 | # Don't let abort actually run, as it will make | |
57 | # stdio stop working and therefore the `pr' command below as well. | |
58 | b abort |