|
|
1.1 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
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 ptn
38: output $.type.name->decl.name->identifier.pointer
39: echo \n
40: end
41:
42: document ptn
43: Print the name of the type-node that is $.
44: end
45:
46: define prc
47: output (enum rtx_code) $.code
48: echo \ (
49: output $.mode
50: echo )\n
51: end
52:
53: document prc
54: Print the rtx-code and machine mode of the rtx that is $.
55: end
56:
57: define pi
58: print $.fld[0].rtx@7
59: end
60:
61: document pi
62: Print the fields of an instruction that is $.
63: end
64:
1.1.1.2 ! root 65: define pbs
! 66: set print_binding_stack ()
! 67: end
! 68:
! 69: document pbs
! 70: In cc1plus, print the current binding stack, frame by frame, up to and
! 71: including the global binding level.
! 72: end
! 73:
1.1 root 74: # Don't let abort actually run, as it will make
75: # stdio stop working and therefore the `pr' command below as well.
76: b abort
1.1.1.2 ! root 77:
! 78: # Make gdb complain about symbol reading errors. This is so that gcc
! 79: # developers can see and fix bugs in gcc debug output.
! 80: set complaints 20
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.