From 0058964eb1d1fe9fdae48c5f446e86a4c4d1285c Mon Sep 17 00:00:00 2001
From: "Kim F. Storm" <storm@cua.dk>
Date: Fri, 23 Jun 2006 12:19:45 +0000
Subject: [PATCH] (pitx): Dump iterator stack.

---
 src/.gdbinit | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/.gdbinit b/src/.gdbinit
index 810458ea897..564b3762bd7 100644
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -217,6 +217,15 @@ define pitx
   printf " a+d=%d+%d=%d", $it->ascent, $it->descent, $it->ascent+$it->descent
   printf " max=%d+%d=%d", $it->max_ascent, $it->max_descent, $it->max_ascent+$it->max_descent
   printf "\n"
+  set $i = 0
+  while ($i < $it->sp)
+    set $e = $it->stack[$i]
+    printf "stack[%d]: ", $i
+    output $e->method
+    printf "[%d]", $e->position.charpos
+    printf "\n"
+    set $i = $i + 1
+  end
 end
 document pitx
 Pretty print a display iterator.
-- 
2.39.2