|
|
1.1.1.2 ! root 1: # Don't let abort actually run, as it will make ! 2: # stdio stop working and therefore the `pr' command below as well. ! 3: b abort ! 4: ! 5: define pr ! 6: set debug_rtx ($) ! 7: end ! 8: ! 9: document pr ! 10: Print the full structure of the rtx that is $. ! 11: Works only when an inferior is executing. ! 12: end ! 13: ! 14: define pt ! 15: set debug_dump_tree ($) ! 16: end ! 17: ! 18: document pt ! 19: Print the full structure of the tree that is $. ! 20: Works only when an inferior is executing. ! 21: end 1.1 root 22: 23: define ptc 1.1.1.2 ! root 24: output (enum tree_code) $.common.code 1.1 root 25: echo \n 26: end 27: 28: document ptc 29: Print the tree-code of the tree node that is $. 30: end 31: 32: define pdn 33: output $.decl.name->identifier.pointer 34: echo \n 35: end 36: 37: document pdn 38: Print the name of the decl-node that is $. 39: end 40: 41: define prc 42: output (enum rtx_code) $.code 1.1.1.2 ! root 43: echo \ ( ! 44: output $.mode ! 45: echo )\n 1.1 root 46: end 47: 48: document prc 1.1.1.2 ! root 49: Print the rtx-code and machine mode of the rtx that is $. 1.1 root 50: end 51: 52: define pi 1.1.1.2 ! root 53: print $.fld[0].rtx@7 1.1 root 54: end 55: 56: document pi 1.1.1.2 ! root 57: Print the fields of an instruction that is $. 1.1 root 58: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.