* .gdbinit (xgettype): Add cast.

2 files changed, 5 insertions, 1 deletions

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.