|
|
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 prl ! 11: set debug_rtx_list ($, debug_rtx_count) ! 12: end ! 13: ! 14: document prl ! 15: Print the full structure of all rtx insns beginning at $. ! 16: Works only when an inferior is executing. ! 17: Uses variable debug_rtx_count to control number of insns printed: ! 18: debug_rtx_count > 0: print from $ on. ! 19: debug_rtx_count < 0: print a window around $. ! 20: ! 21: There is also debug_rtx_find (rtx, uid) that will scan a list for UID and print ! 22: it using debug_rtx_list. Usage example: set $foo=debug_rtx_find(first, 42) ! 23: end ! 24: ! 25: define pt ! 26: set debug_tree ($) ! 27: end ! 28: ! 29: document pt ! 30: Print the full structure of the tree that is $. ! 31: Works only when an inferior is executing. ! 32: end ! 33: ! 34: define ptc ! 35: output (enum tree_code) $.common.code ! 36: echo \n ! 37: end ! 38: ! 39: document ptc ! 40: Print the tree-code of the tree node that is $. ! 41: end ! 42: ! 43: define pdn ! 44: output $.decl.name->identifier.pointer ! 45: echo \n ! 46: end ! 47: ! 48: document pdn ! 49: Print the name of the decl-node that is $. ! 50: end ! 51: ! 52: define ptn ! 53: output $.type.name->decl.name->identifier.pointer ! 54: echo \n ! 55: end ! 56: ! 57: document ptn ! 58: Print the name of the type-node that is $. ! 59: end ! 60: ! 61: define prc ! 62: output (enum rtx_code) $.code ! 63: echo \ ( ! 64: output $.mode ! 65: echo )\n ! 66: end ! 67: ! 68: document prc ! 69: Print the rtx-code and machine mode of the rtx that is $. ! 70: end ! 71: ! 72: define pi ! 73: print $.fld[0].rtx@7 ! 74: end ! 75: ! 76: document pi ! 77: Print the fields of an instruction that is $. ! 78: end ! 79: ! 80: define pbs ! 81: set print_binding_stack () ! 82: end ! 83: ! 84: document pbs ! 85: In cc1plus, print the current binding stack, frame by frame, up to and ! 86: including the global binding level. ! 87: end ! 88: ! 89: # Don't let abort actually run, as it will make ! 90: # stdio stop working and therefore the `pr' command below as well. ! 91: b abort ! 92: ! 93: # Make gdb complain about symbol reading errors. This is so that gcc ! 94: # developers can see and fix bugs in gcc debug output. ! 95: set complaints 20
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.