emacs-diffs
[Top][All Lists]
Advanced

[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))
     {



reply via email to

[Prev in Thread] Current Thread [Next in Thread]