summaryrefslogtreecommitdiff
path: root/src/.gdbinit
diff options
context:
space:
mode:
authorKim F. Storm <storm@cua.dk>2006-08-14 09:58:12 +0000
committerKim F. Storm <storm@cua.dk>2006-08-14 09:58:12 +0000
commit82d59cb0cabac3a51a23fe06b59a22bc14fa2000 (patch)
tree0c7ab43409a025104be03fd0ec9f764b54420494 /src/.gdbinit
parent9bdc2a5d70f1373b914d94cc8afb9fa82f320890 (diff)
downloademacs-82d59cb0cabac3a51a23fe06b59a22bc14fa2000.tar.gz
(pitx): Print iterator position.
Limit stack dump in case iterator is not initialized.
Diffstat (limited to 'src/.gdbinit')
-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
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