[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/.gdbinit
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/src/.gdbinit |
Date: |
Sat, 22 Jun 2002 17:09:46 -0400 |
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