diff options
author | gerald <gerald@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-02-16 11:12:46 +0000 |
---|---|---|
committer | gerald <gerald@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-02-16 11:12:46 +0000 |
commit | 49d8723849491227b1dcfc01d1bb6811501efad0 (patch) | |
tree | 99bbe4590d562c9b5733e204971f93226fc91c3c /gcc/gdbinit.in | |
parent | 6d5fc3e8d98febc71fa0c90f9c0c741529048e70 (diff) | |
download | gcc-49d8723849491227b1dcfc01d1bb6811501efad0.tar.gz |
* .gdbinit: Rename to gdbinit.in.
* gdbinit.in: New file,
* configure.in: Generate .gdbinit from gdbinit.in.
* configure: Regenerated.
* Makefile.in (distclean): Always remove .gdbinit.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@39759 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/gdbinit.in')
-rw-r--r-- | gcc/gdbinit.in | 102 |
1 files changed, 102 insertions, 0 deletions
diff --git a/gcc/gdbinit.in b/gcc/gdbinit.in new file mode 100644 index 00000000000..ccc3ad8787f --- /dev/null +++ b/gcc/gdbinit.in @@ -0,0 +1,102 @@ +define pr +set debug_rtx ($) +end + +document pr +Print the full structure of the rtx that is $. +Works only when an inferior is executing. +end + +define prl +set debug_rtx_list ($, debug_rtx_count) +end + +document prl +Print the full structure of all rtx insns beginning at $. +Works only when an inferior is executing. +Uses variable debug_rtx_count to control number of insns printed: + debug_rtx_count > 0: print from $ on. + debug_rtx_count < 0: print a window around $. + +There is also debug_rtx_find (rtx, uid) that will scan a list for UID and print +it using debug_rtx_list. Usage example: set $foo=debug_rtx_find(first, 42) +end + +define pt +set debug_tree ($) +end + +document pt +Print the full structure of the tree that is $. +Works only when an inferior is executing. +end + +define ptc +output (enum tree_code) $.common.code +echo \n +end + +document ptc +Print the tree-code of the tree node that is $. +end + +define pdn +output $.decl.name->identifier.pointer +echo \n +end + +document pdn +Print the name of the decl-node that is $. +end + +define ptn +output $.type.name->decl.name->identifier.pointer +echo \n +end + +document ptn +Print the name of the type-node that is $. +end + +define prc +output (enum rtx_code) $.code +echo \ ( +output $.mode +echo )\n +end + +document prc +Print the rtx-code and machine mode of the rtx that is $. +end + +define pi +print $.fld[0].rtx@7 +end + +document pi +Print the fields of an instruction that is $. +end + +define pbs +set print_binding_stack () +end + +document pbs +In cc1plus, print the current binding stack, frame by frame, up to and +including the global binding level. +end + +# Put breakpoints at exit and fancy_abort in case abort is mapped +# to either fprintf/exit or fancy_abort. +b exit +b fancy_abort + +# Make gdb complain about symbol reading errors. This is so that gcc +# developers can see and fix bugs in gcc debug output. +set complaints 20 + +# Don't let abort actually run, as it will make +# stdio stop working and therefore the `pr' command above as well. +# Put this last because gcc does not reference it any more unless +# USE_SYSTEM_ABORT is defined, so gdb may complain and bail out. +b abort |