# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 771973416 0
# Node ID f3e1a5c7bba189ac1ea4e4252775b6dcc3fe0d75
# Parent  cf5e53c5089ea802608e508dd4e7f9b74f99b3e1
(xsymbol): Cast $ to int.
(xvector, xstring): Don't use a string constant.
Reduce size limit for printing contents.

diff -r cf5e53c5089e -r f3e1a5c7bba1 src/.gdbinit
--- 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