.gdbinit: Update to match recent lisp.h changes.

src/.gdbinit

@@ -60,7 +60,7 @@ define xgetint
   if gdb_use_struct
     set $bugfix = $bugfix.i
   end
-  set $int = gdb_use_lsb ? $bugfix >> (gdb_gctypebits - 1) : $bugfix << gdb_gctypebits) >> gdb_gctypebits
+  set $int = gdb_use_lsb ? $bugfix >> (gdb_gctypebits - 1) : $bugfix << (gdb_gctypebits - 1) >> (gdb_gctypebits - 1)
 end
 
 define xgettype
@@ -1189,7 +1189,7 @@ define hookpost-backtrace
 end
 
 define xreload
-  set $tagmask = (((long)1 << gdb_gctypebits) - 1)
+  set $tagmask = ((1 << gdb_gctypebits) - 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

src/ChangeLog

 2012-06-14  Paul Eggert  <eggert@cs.ucla.edu>
 
+	* .gdbinit (xgetint): Fix recently-introduced paren typo.
+	Assume USE_2_TAGS_FOR_INTS.
+	(xreload): Adjust $tagmask width to match recent lisp.h change.
+
 	Simplify lisp.h in minor ways that should not affect code.
 	* lisp.h (USE_2_TAGS_FOR_INTS): Remove, as it was always defined.
 	(LISP_INT_TAG, case_Lisp_Int, LISP_STRING_TAG, LISP_INT_TAG_P)