diff options
author | Kim F. Storm <storm@cua.dk> | 2006-08-14 09:58:12 +0000 |
---|---|---|
committer | Kim F. Storm <storm@cua.dk> | 2006-08-14 09:58:12 +0000 |
commit | 82d59cb0cabac3a51a23fe06b59a22bc14fa2000 (patch) | |
tree | 0c7ab43409a025104be03fd0ec9f764b54420494 /src/.gdbinit | |
parent | 9bdc2a5d70f1373b914d94cc8afb9fa82f320890 (diff) | |
download | emacs-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/.gdbinit | 6 |
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 |