[Emacs-diffs] Changes to emacs/src/.gdbinit

[Stefan Monnier]

Index: emacs/src/.gdbinit
diff -c emacs/src/.gdbinit:1.52 emacs/src/.gdbinit:1.53
*** emacs/src/.gdbinit:1.52     Mon Jun 17 12:16:14 2002
--- emacs/src/.gdbinit  Sat Jun 22 17:09:46 2002
***************
*** 159,167 ****
  
  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
  end
  document xsymbol
  Print the name and address of the symbol $.
--- 159,165 ----
  
  define xsymbol
  print (struct Lisp_Symbol *) ((((int) $) & $valmask) | gdb_data_seg_bits)
! xprintsym $
  end
  document xsymbol
  Print the name and address of the symbol $.
***************
*** 326,332 ****
  
  define xprintsym
    set $sym = (struct Lisp_Symbol *) ((((int) $arg0) & $valmask) | 
gdb_data_seg_bits)
!   output (char*)$sym->name->data
    echo \n
  end
  document xprintsym
--- 324,331 ----
  
  define xprintsym
    set $sym = (struct Lisp_Symbol *) ((((int) $arg0) & $valmask) | 
gdb_data_seg_bits)
!   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