X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=blobdiff_plain;f=gcc%2Fgdbinit.in;h=d1ae46dae3fbe781f7668dc4d313de6e6185edae;hp=9df289cb5dcef9f3c0d2bc7b2738d323177ccf28;hb=191678c8b9e88275c70a7d172f9234496fed359f;hpb=255b6be72832e001a6aa896bada736ffc2735b19

diff --git a/gcc/gdbinit.in b/gcc/gdbinit.in
index 9df289cb5dc..d1ae46dae3f 100644
--- a/gcc/gdbinit.in
+++ b/gcc/gdbinit.in
@@ -1,3 +1,22 @@
+# Copyright (C) 2001, 2002, 2003, 2004, 2006,
+# 2008, 2010 Free Software Foundation, Inc.
+#
+# This file is part of GCC.
+#
+# GCC is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3, or (at your option)
+# any later version.
+#
+# GCC is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with GCC; see the file COPYING3.  If not see
+# <http://www.gnu.org/licenses/>.
+
 define pr
 set debug_rtx ($)
 end
@@ -49,6 +68,15 @@ Print the Gimple statement that is $ in C syntax.
 Works only when an inferior is executing.
 end
 
+define pgq
+set debug_gimple_seq ($)
+end
+
+document pgq
+Print the Gimple sequence that is $ in C syntax.
+Works only when an inferior is executing.
+end
+
 define pgs
 set debug_generic_stmt ($)
 end
@@ -94,6 +122,22 @@ document ptn
 Print the name of the type-node that is $.
 end
 
+define pvt
+set debug_vec_tree ($)
+end
+
+document pvt
+Print the VEC(tree) that is in $.
+end
+
+define pdd
+set debug_dwarf_die ($)
+end
+
+document pdd
+Print the dw_die_ref that is in $.
+end
+
 define prc
 output (enum rtx_code) $.code
 echo \ (