|
|
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: ! 65: # Don't let abort actually run, as it will make ! 66: # stdio stop working and therefore the `pr' command below as well. ! 67: b abort
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.