(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.

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