From 338fa84a5ec5c280b7bbd19d1cac7b1268579789 Mon Sep 17 00:00:00 2001
From: "Kim F. Storm" <storm@cua.dk>
Date: Fri, 11 Nov 2005 15:45:44 +0000
Subject: [PATCH] (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.

---
 src/.gdbinit | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

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