diff options
| author | Kim F. Storm | 2006-06-23 12:19:45 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2006-06-23 12:19:45 +0000 |
| commit | 0058964eb1d1fe9fdae48c5f446e86a4c4d1285c (patch) | |
| tree | da60706897cb14d647fb24183de0cfecef8adfab /src | |
| parent | 310059214b455f1d76b4f3457f507435bc229aec (diff) | |
| download | emacs-0058964eb1d1fe9fdae48c5f446e86a4c4d1285c.tar.gz emacs-0058964eb1d1fe9fdae48c5f446e86a4c4d1285c.zip | |
(pitx): Dump iterator stack.
Diffstat (limited to 'src')
| -rw-r--r-- | src/.gdbinit | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/.gdbinit b/src/.gdbinit index 810458ea897..564b3762bd7 100644 --- a/src/.gdbinit +++ b/src/.gdbinit | |||
| @@ -217,6 +217,15 @@ define pitx | |||
| 217 | printf " a+d=%d+%d=%d", $it->ascent, $it->descent, $it->ascent+$it->descent | 217 | printf " a+d=%d+%d=%d", $it->ascent, $it->descent, $it->ascent+$it->descent |
| 218 | printf " max=%d+%d=%d", $it->max_ascent, $it->max_descent, $it->max_ascent+$it->max_descent | 218 | printf " max=%d+%d=%d", $it->max_ascent, $it->max_descent, $it->max_ascent+$it->max_descent |
| 219 | printf "\n" | 219 | printf "\n" |
| 220 | set $i = 0 | ||
| 221 | while ($i < $it->sp) | ||
| 222 | set $e = $it->stack[$i] | ||
| 223 | printf "stack[%d]: ", $i | ||
| 224 | output $e->method | ||
| 225 | printf "[%d]", $e->position.charpos | ||
| 226 | printf "\n" | ||
| 227 | set $i = $i + 1 | ||
| 228 | end | ||
| 220 | end | 229 | end |
| 221 | document pitx | 230 | document pitx |
| 222 | Pretty print a display iterator. | 231 | Pretty print a display iterator. |