diff options
author | Kim F. Storm <storm@cua.dk> | 2005-11-11 15:45:44 +0000 |
---|---|---|
committer | Kim F. Storm <storm@cua.dk> | 2005-11-11 15:45:44 +0000 |
commit | 323e374869bca765aff82863f9c7ec8b13ed38b5 (patch) | |
tree | 385e48ff24cf65117a68f83151cef669bede31b6 /src/.gdbinit | |
parent | b9ebff28fbe944fb339a140bc4387181ccd3772f (diff) | |
download | emacs-323e374869bca765aff82863f9c7ec8b13ed38b5.tar.gz |
(pitx): Fix output format if n_overlay_strings > 0.
(bt): Add post hook to "backtrace" to always dump lisp call stack to
increase chance of people sending it to us when reporting bugs.
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 |