From cb3a28cc909e79244a477dcc357e38da658a8992 Mon Sep 17 00:00:00 2001
From: Paul Eggert <eggert@cs.ucla.edu>
Date: Mon, 20 Feb 2012 16:07:53 -0800
Subject: In GDB scripts, don't assume that EMACS_INT fits in long.

* etc/emacs-buffer.gdb ($valmask): Don't assume EMACS_INT fits in 'long'.
* src/.gdbinit (xreload): Likewise.
---
 etc/emacs-buffer.gdb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'etc/emacs-buffer.gdb')

diff --git a/etc/emacs-buffer.gdb b/etc/emacs-buffer.gdb
index 2bd2fa23794..80f69c585dc 100644
--- a/etc/emacs-buffer.gdb
+++ b/etc/emacs-buffer.gdb
@@ -78,7 +78,9 @@ set $yverbose = 1
 set $yfile_buffers_only = 0
 
 set $tagmask = (((long)1 << gdb_gctypebits) - 1)
-set $valmask = gdb_use_lsb ? ~($tagmask) : ((long)1 << gdb_valbits) - 1
+# The consing_since_gc business widens the 1 to EMACS_INT,
+# a symbol not directly visible to GDB.
+set $valmask = gdb_use_lsb ? ~($tagmask) : ((consing_since_gc - consing_since_gc + 1) << gdb_valbits) - 1
 
 define ygetptr
   set $ptr = $arg0
-- 
cgit v1.2.3