|
|
1.1.1.2 root 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
1.1.1.4 ! root 11: set debug_tree ($)
1.1.1.2 root 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
1.1 root 18:
19: define ptc
1.1.1.2 root 20: output (enum tree_code) $.common.code
1.1 root 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
1.1.1.2 root 39: echo \ (
40: output $.mode
41: echo )\n
1.1 root 42: end
43:
44: document prc
1.1.1.2 root 45: Print the rtx-code and machine mode of the rtx that is $.
1.1 root 46: end
47:
48: define pi
1.1.1.2 root 49: print $.fld[0].rtx@7
1.1 root 50: end
51:
52: document pi
1.1.1.2 root 53: Print the fields of an instruction that is $.
1.1 root 54: end
1.1.1.3 root 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
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.