Mercurial > emacs

changeset 7961:f3e1a5c7bba1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(xsymbol): Cast $ to int. (xvector, xstring): Don't use a string constant. Reduce size limit for printing contents.
author Richard M. Stallman <rms@gnu.org>
date Sat, 18 Jun 1994 21:03:36 +0000
parents cf5e53c5089e
children 05260d3b988d
files src/.gdbinit
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/.gdbinit	Sat Jun 18 19:20:48 1994 +0000
+++ b/src/.gdbinit	Sat Jun 18 21:03:36 1994 +0000
@@ -69,7 +69,7 @@
 end
 
 define xsymbol
-print (struct Lisp_Symbol *) (($ & 0x00ffffff) | $data_seg_bits)
+print (struct Lisp_Symbol *) ((((int) $) & 0x00ffffff) | $data_seg_bits)
 output &$->name->data
 echo \n
 end
@@ -80,7 +80,7 @@
 
 define xstring
 print (struct Lisp_String *) (($ & 0x00ffffff) | $data_seg_bits)
-output ($->size > 10000) ? "big string" : ($->data[0])@($->size)
+output ($->size > 1000) ? 0 : ($->data[0])@($->size)
 echo \n
 end
 document xstring
@@ -90,7 +90,7 @@
 
 define xvector
 print (struct Lisp_Vector *) (($ & 0x00ffffff) | $data_seg_bits)
-output ($->size > 1000) ? "big vector" : ($->contents[0])@($->size)
+output ($->size > 50) ? 0 : ($->contents[0])@($->size)
 echo \n
 end
 document xvector