small changes of gdbinit.in

["Eric Fisher" <joefoxreal at gmail dot com>]

I guess that the argument of the user defined command in gdbinit.in
should be $arg0. Also, due to the changes of the structure tree node,
ptc should be,

 define ptc
-output (enum tree_code) $.common.code
+output (enum tree_code) $arg0.base.code
 echo \n
 end

Here's the patch,

--- gcc/gdbinit.in	2008-01-23 14:09:33.000000000 +0800
+++ temp/gdbinit.in	2008-01-23 13:36:24.000000000 +0800
@@ -1,107 +1,107 @@
 define pr
-set debug_rtx ($)
+set debug_rtx ($arg0)
 end

 document pr
-Print the full structure of the rtx that is $.
+Print the full structure of the rtx that is $arg0.
 Works only when an inferior is executing.
 end

 define prl
-set debug_rtx_list ($, debug_rtx_count)
+set debug_rtx_list ($arg0, debug_rtx_count)
 end

 document prl
-Print the full structure of all rtx insns beginning at $.
+Print the full structure of all rtx insns beginning at $arg0.
 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 $.
+  debug_rtx_count > 0: print from $arg0 on.
+  debug_rtx_count < 0: print a window around $arg0.

 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 ($)
+set debug_tree ($arg0)
 end

 document pt
-Print the full structure of the tree that is $.
+Print the full structure of the tree that is $arg0.
 Works only when an inferior is executing.
 end

 define pct
-set debug_c_tree ($)
+set debug_c_tree ($arg0)
 end

 document pct
-Print the tree that is $ in C syntax.
+Print the tree that is $arg0 in C syntax.
 Works only when an inferior is executing.
 end

 define pgs
-set debug_generic_stmt ($)
+set debug_generic_stmt ($arg0)
 end

 document pgs
-Print the statement that is $ in C syntax.
+Print the statement that is $arg0 in C syntax.
 Works only when an inferior is executing.
 end

 define pge
-set debug_generic_expr ($)
+set debug_generic_expr ($arg0)
 end

 document pge
-Print the expression that is $ in C syntax.
+Print the expression that is $arg0 in C syntax.
 Works only when an inferior is executing.
 end

 define ptc
-output (enum tree_code) $.common.code
+output (enum tree_code) $arg0.base.code
 echo \n
 end

 document ptc
-Print the tree-code of the tree node that is $.
+Print the tree-code of the tree node that is $arg0.
 end

 define pdn
-output $.decl_minimal.name->identifier.id.str
+output $arg0.decl_minimal.name->identifier.id.str
 echo \n
 end

 document pdn
-Print the name of the decl-node that is $.
+Print the name of the decl-node that is $arg0.
 end

 define ptn
-output $.type.name->decl_minimal.name->identifier.id.str
+output $arg0.type.name->decl_minimal.name->identifier.id.str
 echo \n
 end

 document ptn
-Print the name of the type-node that is $.
+Print the name of the type-node that is $arg0.
 end

 define prc
-output (enum rtx_code) $.code
+output (enum rtx_code) $arg0.code
 echo \ (
-output $.mode
+output $arg0.mode
 echo )\n
 end

 document prc
-Print the rtx-code and machine mode of the rtx that is $.
+Print the rtx-code and machine mode of the rtx that is $arg0.
 end

 define pi
-print $.u.fld[0].rt_rtx@7
+print $arg0.u.fld[0].rt_rtx@7
 end

 document pi
-Print the fields of an instruction that is $.
+Print the fields of an instruction that is $arg0.
 end

 define pbs
@@ -114,19 +114,19 @@ including the global binding level.
 end

 define pbb
-set dump_bb ($, stderr, 0)
+set dump_bb ($arg0, stderr, 0)
 end

 document pbb
-Dump the basic block that is in $, including rtx.
+Dump the basic block that is in $arg0, including rtx.
 end

 define pbm
-set bitmap_print (stderr, $, "", "\n")
+set bitmap_print (stderr, $arg0, "", "\n")
 end

 document pbm
-Dump the bitmap that is in $ as a comma-separated list of numbers.
+Dump the bitmap that is in $arg0 as a comma-separated list of numbers.
 end

 # Put breakpoints at exit and fancy_abort in case abort is mapped