(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 cc59567926df40521ec14e0021212c5426ae525d..c0e97b33c20b0287ffbf94353b2ccff81cc475c7 100644 (file)
--- 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