* .gdbinit (xgettype): Add cast.

ed87760c · Andreas Schwab · 0bf3f0fa · ed87760c · ed87760c
Commit ed87760c authored Nov 26, 2013 by Andreas Schwab
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletion

src/.gdbinit src/.gdbinit +1 -1

src/ChangeLog src/ChangeLog +4 -0

No files found.
--- 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.

--- a/src/ChangeLog
+++ b/src/ChangeLog
+2013-11-26  Andreas Schwab  <schwab@suse.de>
+
+	* .gdbinit (xgettype): Add cast.
+
 2013-11-26  Glenn Morris  <rgm@gnu.org>

 	Preload leim-list.el.