aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorKim F. Storm2006-08-14 09:58:12 +0000
committerKim F. Storm2006-08-14 09:58:12 +0000
commit82d59cb0cabac3a51a23fe06b59a22bc14fa2000 (patch)
tree0c7ab43409a025104be03fd0ec9f764b54420494 /src
parent9bdc2a5d70f1373b914d94cc8afb9fa82f320890 (diff)
downloademacs-82d59cb0cabac3a51a23fe06b59a22bc14fa2000.tar.gz
emacs-82d59cb0cabac3a51a23fe06b59a22bc14fa2000.zip
(pitx): Print iterator position.
Limit stack dump in case iterator is not initialized.
Diffstat (limited to 'src')
-rw-r--r--src/.gdbinit6
1 files changed, 5 insertions, 1 deletions
diff --git a/src/.gdbinit b/src/.gdbinit
index 564b3762bd7..a99b17e16fb 100644
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -164,6 +164,10 @@ define pitx
164 if ($it->current.pos.charpos != $it->current.pos.bytepos) 164 if ($it->current.pos.charpos != $it->current.pos.bytepos)
165 printf "[%d]", $it->current.pos.bytepos 165 printf "[%d]", $it->current.pos.bytepos
166 end 166 end
167 printf " pos=%d", $it->position.charpos
168 if ($it->position.charpos != $it->position.bytepos)
169 printf "[%d]", $it->position.bytepos
170 end
167 printf " start=%d", $it->start.pos.charpos 171 printf " start=%d", $it->start.pos.charpos
168 if ($it->start.pos.charpos != $it->start.pos.bytepos) 172 if ($it->start.pos.charpos != $it->start.pos.bytepos)
169 printf "[%d]", $it->start.pos.bytepos 173 printf "[%d]", $it->start.pos.bytepos
@@ -218,7 +222,7 @@ define pitx
218 printf " max=%d+%d=%d", $it->max_ascent, $it->max_descent, $it->max_ascent+$it->max_descent 222 printf " max=%d+%d=%d", $it->max_ascent, $it->max_descent, $it->max_ascent+$it->max_descent
219 printf "\n" 223 printf "\n"
220 set $i = 0 224 set $i = 0
221 while ($i < $it->sp) 225 while ($i < $it->sp && $i < 4)
222 set $e = $it->stack[$i] 226 set $e = $it->stack[$i]
223 printf "stack[%d]: ", $i 227 printf "stack[%d]: ", $i
224 output $e->method 228 output $e->method