# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 947628429 0
# Node ID c26a9f95a88095d4e816058cea610355327184eb
# Parent  f6c878d8527cada6c1e694208b3d7ff4cf138414
Adapt to new strings.

diff -r f6c878d8527c -r c26a9f95a880 src/.gdbinit
--- a/src/.gdbinit	Tue Jan 11 22:04:24 2000 +0000
+++ b/src/.gdbinit	Tue Jan 11 22:07:09 2000 +0000
@@ -134,7 +134,7 @@
 
 define xsymbol
 print (struct Lisp_Symbol *) ((((int) $) & $valmask) | gdb_data_seg_bits)
-output (char*)&$->name->data
+output (char*)$->name->data
 echo \n
 end
 document xsymbol
@@ -291,6 +291,38 @@
 Print $ as a scrollbar pointer.
 end
 
+define xprintsym
+  set $sym = (struct Lisp_Symbol *) ((((int) $arg0) & $valmask) | gdb_data_seg_bits)
+  output (char*)$sym->name->data
+  echo \n
+end
+document xprintsym
+  Print argument as a symbol.
+end
+
+define xbacktrace
+  set $bt = backtrace_list
+  while $bt 
+    xprintsym *$bt->function
+    set $bt = $bt->next
+  end
+end
+document xbacktrace
+  Print a backtrace of Lisp function calls from backtrace_list.
+  Set a breakpoint at Fsignal and call this to see from where 
+  an error was signalled.
+end
+
+define xreload
+  set $valmask = ((long)1 << gdb_valbits) - 1
+  set $nonvalbits = gdb_emacs_intbits - gdb_valbits
+end
+document xreload
+  When starting Emacs a second time in the same gdb session under
+  FreeBSD 2.2.5, gdb 4.13, $valmask and $nonvalbits have lost
+  their values.  This function reloads them.
+end
+
 set print pretty on
 set print sevenbit-strings