# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1131723944 0
# Node ID 98ff41842c947a3cca5bcfe1e8d82e18c014c7cd
# Parent  5e7c7a5ed80e4c578569b3c2ac7e6cc0fd754e5d
(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.

diff -r 5e7c7a5ed80e -r 98ff41842c94 src/.gdbinit
--- a/src/.gdbinit	Fri Nov 11 15:45:18 2005 +0000
+++ b/src/.gdbinit	Fri Nov 11 15:45:44 2005 +0000
@@ -162,7 +162,7 @@
     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 @@
   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