summaryrefslogtreecommitdiff
path: root/gcc/gdbinit.in
diff options
context:
space:
mode:
authorgerald <gerald@138bc75d-0d04-0410-961f-82ee72b054a4>2001-02-16 11:12:46 +0000
committergerald <gerald@138bc75d-0d04-0410-961f-82ee72b054a4>2001-02-16 11:12:46 +0000
commit49d8723849491227b1dcfc01d1bb6811501efad0 (patch)
tree99bbe4590d562c9b5733e204971f93226fc91c3c /gcc/gdbinit.in
parent6d5fc3e8d98febc71fa0c90f9c0c741529048e70 (diff)
downloadgcc-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.in102
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