From: Kim F. Storm <storm@cua.dk>
Date: Mon, 14 Aug 2006 09:58:12 +0000 (+0000)
Subject: (pitx): Print iterator position.
X-Git-Tag: emacs-pretest-22.0.90~1004
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=82d59cb0cabac3a51a23fe06b59a22bc14fa2000;p=emacs.git

(pitx): Print iterator position.
Limit stack dump in case iterator is not initialized.
---

diff --git a/src/.gdbinit b/src/.gdbinit
index 564b3762bd7..a99b17e16fb 100644
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -164,6 +164,10 @@ define pitx
   if ($it->current.pos.charpos != $it->current.pos.bytepos)
     printf "[%d]", $it->current.pos.bytepos
   end
+  printf " pos=%d", $it->position.charpos
+  if ($it->position.charpos != $it->position.bytepos)
+    printf "[%d]", $it->position.bytepos
+  end
   printf " start=%d", $it->start.pos.charpos
   if ($it->start.pos.charpos != $it->start.pos.bytepos)
     printf "[%d]", $it->start.pos.bytepos
@@ -218,7 +222,7 @@ define pitx
   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)
+  while ($i < $it->sp && $i < 4)
     set $e = $it->stack[$i]
     printf "stack[%d]: ", $i
     output $e->method