|
|
1.1 ! root 1: unset-e EDITOR ! 2: unset-e MAILER ! 3: unset-e MAN ! 4: unset-e MORE ! 5: unset-e NAME ! 6: unset-e ORGANIZATION ! 7: unset-e PAGER ! 8: unset-e TERMCAP ! 9: ! 10: define ptc ! 11: output (enum tree_code) $.shared.code ! 12: echo \n ! 13: end ! 14: ! 15: document ptc ! 16: Print the tree-code of the tree node that is $. ! 17: end ! 18: ! 19: define pdn ! 20: output $.decl.name->identifier.pointer ! 21: echo \n ! 22: end ! 23: ! 24: document pdn ! 25: Print the name of the decl-node that is $. ! 26: end ! 27: ! 28: define prc ! 29: output (enum rtx_code) $.code ! 30: echo \n ! 31: end ! 32: ! 33: document prc ! 34: Print the rtx-code of the rtx that is $. ! 35: end ! 36: ! 37: define pi ! 38: print $.fld[0].rtx@6 ! 39: end ! 40: ! 41: document pi ! 42: Print the fields of an instruction. ! 43: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.