changeset 45873:61d64f3f8e23

(xsymbol): Use the new `xname' field.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 17 Jun 2002 16:16:14 +0000
parents 2793b29e84b3
children 5cce53a1bf6f
files src/.gdbinit
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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