From 4ea0847a369e878d119b8644454c04223fdfb193 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 18 Jun 1994 21:03:36 +0000 Subject: [PATCH] (xsymbol): Cast $ to int. (xvector, xstring): Don't use a string constant. Reduce size limit for printing contents. --- src/.gdbinit | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 2.39.5