diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index b6d48d85e19..a3a6ed36cf7 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,7 @@
+2009-11-09  Jason Merrill  <jason@redhat.com>
+
+	* gdbinit.in (pgq): New function for printing gimple sequence.
+
 2009-11-09  Paul Brook  <paul@codesourcery.com>
 	Daniel Jacobowitz  <dan@codesourcery.com>
 	Sandra Loosemore  <sandra@codesourcery.com>
diff --git a/gcc/gdbinit.in b/gcc/gdbinit.in
index 458277d6621..22c99a776b8 100644
--- a/gcc/gdbinit.in
+++ b/gcc/gdbinit.in
@@ -68,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