162 |
printf " HL" |
printf " HL" |
163 |
end |
end |
164 |
if ($it->n_overlay_strings > 0) |
if ($it->n_overlay_strings > 0) |
165 |
printf " nov=%d" |
printf " nov=%d", $it->n_overlay_strings |
166 |
end |
end |
167 |
if ($it->sp != 0) |
if ($it->sp != 0) |
168 |
printf " sp=%d", $it->sp |
printf " sp=%d", $it->sp |
712 |
an error was signaled. |
an error was signaled. |
713 |
end |
end |
714 |
|
|
715 |
|
# Show Lisp backtrace after normal backtrace. |
716 |
|
define hookpost-backtrace |
717 |
|
set $bt = backtrace_list |
718 |
|
if $bt |
719 |
|
echo \n |
720 |
|
echo Lisp Backtrace:\n |
721 |
|
xbacktrace |
722 |
|
end |
723 |
|
end |
724 |
|
|
725 |
define xreload |
define xreload |
726 |
set $tagmask = (((long)1 << gdb_gctypebits) - 1) |
set $tagmask = (((long)1 << gdb_gctypebits) - 1) |
727 |
set $valmask = gdb_use_lsb ? ~($tagmask) : ((long)1 << gdb_valbits) - 1 |
set $valmask = gdb_use_lsb ? ~($tagmask) : ((long)1 << gdb_valbits) - 1 |