From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 18 Jun 1994 21:03:36 +0000 (+0000)
Subject: (xsymbol): Cast $ to int.
X-Git-Tag: emacs-19.34~7892
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4ea0847a369e878d119b8644454c04223fdfb193;p=emacs.git

(xsymbol): Cast $ to int.
(xvector, xstring): Don't use a string constant.
Reduce size limit for printing contents.
---

diff --git a/src/.gdbinit b/src/.gdbinit
index cc59567926d..c0e97b33c20 100644
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -69,7 +69,7 @@ Print the name of the buffer.
 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 @@ end
 
 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 @@ end
 
 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