Mercurial > emacs

changeset 45966:09d2b243ebcb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(xprintsym): Use the new `xname' field. (xsymbol): Use it.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sat, 22 Jun 2002 21:09:46 +0000
parents 20686887461a
children 5568001934d1
files src/.gdbinit
diffstat 1 files changed, 3 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/src/.gdbinit	Sat Jun 22 20:24:42 2002 +0000
+++ b/src/.gdbinit	Sat Jun 22 21:09:46 2002 +0000
@@ -159,9 +159,7 @@
 
 define xsymbol
 print (struct Lisp_Symbol *) ((((int) $) & $valmask) | gdb_data_seg_bits)
-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
+xprintsym $
 end
 document xsymbol
 Print the name and address of the symbol $.
@@ -326,7 +324,8 @@
 
 define xprintsym
   set $sym = (struct Lisp_Symbol *) ((((int) $arg0) & $valmask) | gdb_data_seg_bits)
-  output (char*)$sym->name->data
+  set $sym_name = ((struct Lisp_String *)(($sym->xname & $valmask) | gdb_data_seg_bits))
+  output ($sym_name->data[0])@($sym_name->size_byte < 0 ? $sym_name->size : $sym_name->size_byte)
   echo \n
 end
 document xprintsym