diff options
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/src/alloc.c b/src/alloc.c index dd783863be8..70701d75d47 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -4863,17 +4863,8 @@ mark_maybe_pointer (void *p) | |||
| 4863 | VALGRIND_MAKE_MEM_DEFINED (&p, sizeof (p)); | 4863 | VALGRIND_MAKE_MEM_DEFINED (&p, sizeof (p)); |
| 4864 | #endif | 4864 | #endif |
| 4865 | 4865 | ||
| 4866 | if (sizeof (Lisp_Object) == sizeof (void *) || !HAVE_MODULES) | 4866 | if (!maybe_lisp_pointer (p)) |
| 4867 | { | 4867 | return; |
| 4868 | if (!maybe_lisp_pointer (p)) | ||
| 4869 | return; | ||
| 4870 | } | ||
| 4871 | else | ||
| 4872 | { | ||
| 4873 | /* For the wide-int case, also mark emacs_value tagged pointers, | ||
| 4874 | which can be generated by emacs-module.c's value_to_lisp. */ | ||
| 4875 | p = (void *) ((uintptr_t) p & ~((1 << GCTYPEBITS) - 1)); | ||
| 4876 | } | ||
| 4877 | 4868 | ||
| 4878 | if (pdumper_object_p (p)) | 4869 | if (pdumper_object_p (p)) |
| 4879 | { | 4870 | { |