mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-25 06:50:46 -08:00
Code Issues Projects Releases Wiki Activity

(pitx): Print iterator position.

Browse source 
Limit stack dump in case iterator is not initialized.
This commit is contained in:
Kim F. Storm 2006-08-14 09:58:12 +00:00
parent 9bdc2a5d70
commit 82d59cb0ca
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/.gdbinit
View file

@ -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