From: Kim F. Storm <storm@cua.dk>
Date: Fri, 23 Jun 2006 12:19:45 +0000 (+0000)
Subject: (pitx): Dump iterator stack.
X-Git-Tag: emacs-pretest-22.0.90~1874
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0058964eb1d1fe9fdae48c5f446e86a4c4d1285c;p=emacs.git

(pitx): Dump iterator stack.
---

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.