diff options
| author | Kim F. Storm | 2006-08-14 09:58:12 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2006-08-14 09:58:12 +0000 |
| commit | 82d59cb0cabac3a51a23fe06b59a22bc14fa2000 (patch) | |
| tree | 0c7ab43409a025104be03fd0ec9f764b54420494 | |
| parent | 9bdc2a5d70f1373b914d94cc8afb9fa82f320890 (diff) | |
| download | emacs-82d59cb0cabac3a51a23fe06b59a22bc14fa2000.tar.gz emacs-82d59cb0cabac3a51a23fe06b59a22bc14fa2000.zip | |
(pitx): Print iterator position.
Limit stack dump in case iterator is not initialized.
| -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 | |||
| 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 |