[Emacs-diffs] /srv/bzr/emacs/trunk r108607: .gdbinit: Update to match recent lisp.h changes.

[Paul Eggert]

------------------------------------------------------------
revno: 108607
committer: Paul Eggert <address@hidden>
branch nick: trunk
timestamp: Wed 2012-06-13 21:02:35 -0700
message:
  .gdbinit: Update to match recent lisp.h changes.
modified:
  src/.gdbinit
  src/ChangeLog

=== modified file 'src/.gdbinit'
--- a/src/.gdbinit      2012-06-13 13:40:48 +0000
+++ b/src/.gdbinit      2012-06-14 04:02:35 +0000
@@ -60,7 +60,7 @@
   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 @@
 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

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2012-06-14 02:27:39 +0000
+++ b/src/ChangeLog     2012-06-14 04:02:35 +0000
@@ -1,5 +1,9 @@
 2012-06-14  Paul Eggert  <address@hidden>
 
+       * .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)