mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-29 11:02:01 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Paul Eggert 2012-06-13 21:02:35 -07:00
parent 2b57012478
commit e93864f943
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/.gdbinit
View File

@ -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

4
src/ChangeLog
View File

@ -1,5 +1,9 @@
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)