X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=gcc%2Fgdbinit.in;h=a7ad22c036dafa6365b1dea79f49c52f58c3432b;hb=ce45a448519f33c37b3ab6819fed86b28c267ab8;hp=17067df1b4626ae836c0844eab1952ab616685de;hpb=00ae6be78c05e5130c3bcf817720f7817e755f68;p=pf3gnuchains%2Fgcc-fork.git

diff --git a/gcc/gdbinit.in b/gcc/gdbinit.in
index 17067df1b46..a7ad22c036d 100644
--- a/gcc/gdbinit.in
+++ b/gcc/gdbinit.in
@@ -40,6 +40,24 @@ Print the tree that is $ in C syntax.
 Works only when an inferior is executing.
 end
 
+define pgs
+set debug_generic_stmt ($)
+end
+
+document pgs
+Print the statement that is $ in C syntax.
+Works only when an inferior is executing.
+end
+
+define pge
+set debug_generic_expr ($)
+end
+
+document pge
+Print the expression that is $ in C syntax.
+Works only when an inferior is executing.
+end
+
 define ptc
 output (enum tree_code) $.common.code
 echo \n
@@ -50,7 +68,7 @@ Print the tree-code of the tree node that is $.
 end
 
 define pdn
-output $.decl.name->identifier.pointer
+output $.decl.name->identifier.id.str
 echo \n
 end
 
@@ -59,7 +77,7 @@ Print the name of the decl-node that is $.
 end
 
 define ptn
-output $.type.name->decl.name->identifier.pointer
+output $.type.name->decl.name->identifier.id.str
 echo \n
 end
 
@@ -79,7 +97,7 @@ Print the rtx-code and machine mode of the rtx that is $.
 end
 
 define pi
-print $.fld[0].rtx@7
+print $.u.fld[0].rt_rtx@7
 end
 
 document pi
@@ -99,6 +117,9 @@ end
 # to either fprintf/exit or fancy_abort.
 b fancy_abort
 
+# Put a breakpoint on internal_error to help with debugging ICEs.
+b internal_error
+
 # 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