[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 7e7d62e 1/3: Remove special-casing of tagged pointe
From: |
Philipp Stephani |
Subject: |
[Emacs-diffs] master 7e7d62e 1/3: Remove special-casing of tagged pointers. |
Date: |
Fri, 19 Apr 2019 17:12:23 -0400 (EDT) |
branch: master
commit 7e7d62ea5e1a33bdec82bce79ad27e10765e50f1
Author: Philipp Stephani <address@hidden>
Commit: Philipp Stephani <address@hidden>
Remove special-casing of tagged pointers.
This partially reverts commit
09b2b8a5ce5b542856f93b645db51eb11cf9855a.
* src/alloc.c (mark_maybe_pointer): Remove special-casing of tagged
pointers. After commit 09d746dad36e4780d379f975a84b1b076da78c50,
modules no longer rely on tagged pointers.
---
src/alloc.c | 13 ++-----------
1 file changed, 2 insertions(+), 11 deletions(-)
diff --git a/src/alloc.c b/src/alloc.c
index dd78386..70701d7 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -4863,17 +4863,8 @@ mark_maybe_pointer (void *p)
VALGRIND_MAKE_MEM_DEFINED (&p, sizeof (p));
#endif
- if (sizeof (Lisp_Object) == sizeof (void *) || !HAVE_MODULES)
- {
- if (!maybe_lisp_pointer (p))
- return;
- }
- else
- {
- /* For the wide-int case, also mark emacs_value tagged pointers,
- which can be generated by emacs-module.c's value_to_lisp. */
- p = (void *) ((uintptr_t) p & ~((1 << GCTYPEBITS) - 1));
- }
+ if (!maybe_lisp_pointer (p))
+ return;
if (pdumper_object_p (p))
{