home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 7 / FreshFishVol7.bin / bbs / gnu / gcc-2.3.3-src.lha / GNU / src / amiga / gcc-2.3.3 / .gdbinit next >
Text File  |  1994-02-06  |  1KB  |  81 lines

  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. 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.  
  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
  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
  81.