# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1024330574 0
# Node ID 61d64f3f8e236f7efa9bf2bd7d3be07c03fc487e
# Parent  2793b29e84b3c6d9a90d46674e4160cbb168cbf5
(xsymbol): Use the new `xname' field.

diff -r 2793b29e84b3 -r 61d64f3f8e23 src/.gdbinit
--- a/src/.gdbinit	Mon Jun 17 16:15:58 2002 +0000
+++ b/src/.gdbinit	Mon Jun 17 16:16:14 2002 +0000
@@ -159,7 +159,8 @@
 
 define xsymbol
 print (struct Lisp_Symbol *) ((((int) $) & $valmask) | gdb_data_seg_bits)
-output (char*)$->name->data
+set $xsymbol_name = ((struct Lisp_String *)(($->xname & $valmask) | gdb_data_seg_bits))
+output ($xsymbol_name->data[0])@($xsymbol_name->size_byte < 0 ? $xsymbol_name->size : $xsymbol_name->size_byte)
 echo \n
 end
 document xsymbol