From ed87760c27c2f15108082d2eb6f47aa717b45db9 Mon Sep 17 00:00:00 2001
From: Andreas Schwab <schwab@suse.de>
Date: Tue, 26 Nov 2013 10:00:32 +0100
Subject: [PATCH] * .gdbinit (xgettype): Add cast.

---
 src/.gdbinit  | 2 +-
 src/ChangeLog | 4 ++++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/.gdbinit b/src/.gdbinit
index 1bfc293c466..275a1d8db88 100644
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -67,7 +67,7 @@ define xgettype
   else
     set $bugfix = $arg0
   end
-  set $type = (enum Lisp_Type) (USE_LSB_TAG ? $bugfix & (1 << GCTYPEBITS) - 1 : $bugfix >> VALBITS)
+  set $type = (enum Lisp_Type) (USE_LSB_TAG ? $bugfix & (1 << GCTYPEBITS) - 1 : (EMACS_UINT) $bugfix >> VALBITS)
 end
 
 # Set up something to print out s-expressions.
diff --git a/src/ChangeLog b/src/ChangeLog
index 9a32c174d8f..d2dbc187da9 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2013-11-26  Andreas Schwab  <schwab@suse.de>
+
+	* .gdbinit (xgettype): Add cast.
+
 2013-11-26  Glenn Morris  <rgm@gnu.org>
 
 	Preload leim-list.el.
-- 
2.11.4.GIT