Commit e93864f9 authored by Paul Eggert's avatar Paul Eggert

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

parent 2b570124
......@@ -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
......
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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment