diff options
Diffstat (limited to 'src/.gdbinit')
| -rw-r--r-- | src/.gdbinit | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/src/.gdbinit b/src/.gdbinit index cb1deddb1ea..aa89531882b 100644 --- a/src/.gdbinit +++ b/src/.gdbinit @@ -162,7 +162,7 @@ define pitx printf " HL" end if ($it->n_overlay_strings > 0) - printf " nov=%d" + printf " nov=%d", $it->n_overlay_strings end if ($it->sp != 0) printf " sp=%d", $it->sp @@ -712,6 +712,16 @@ document xbacktrace an error was signaled. end +# Show Lisp backtrace after normal backtrace. +define hookpost-backtrace + set $bt = backtrace_list + if $bt + echo \n + echo Lisp Backtrace:\n + xbacktrace + end +end + define xreload set $tagmask = (((long)1 << gdb_gctypebits) - 1) set $valmask = gdb_use_lsb ? ~($tagmask) : ((long)1 << gdb_valbits) - 1 |