aboutsummaryrefslogtreecommitdiffstats
path: root/src/eval.c
diff options
context:
space:
mode:
authorPaul Eggert2020-08-30 23:40:11 -0700
committerPaul Eggert2020-08-31 00:05:56 -0700
commit7e2f6f8448f9d98e90e0343e2aeba22a7985480f (patch)
tree09208ce118690c350559d72a313bd5dd30e00870 /src/eval.c
parentcf95bb0213908a4caab65dccfa67b4f1572babe2 (diff)
downloademacs-7e2f6f8448f9d98e90e0343e2aeba22a7985480f.tar.gz
emacs-7e2f6f8448f9d98e90e0343e2aeba22a7985480f.zip
Remove mark_maybe_object
* src/alloc.c (mark_maybe_object, mark_maybe_objects): Remove. (mark_objects): New function. * src/eval.c (mark_specpdl): Use mark_objects instead of mark_maybe_objects, since the array now has only valid Lisp objects. * src/lisp.h (SAFE_ALLOCA_LISP_EXTRA): When allocating a large array, clear it so that it contains only valid Lisp objects. This is simpler and safer, and does not hurt performance significantly on my usual benchmark as the code is executed so rarely.
Diffstat (limited to 'src/eval.c')
-rw-r--r--src/eval.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/eval.c b/src/eval.c
index 9daae92e55a..a9bce552b18 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -3960,7 +3960,7 @@ mark_specpdl (union specbinding *first, union specbinding *ptr)
3960 break; 3960 break;
3961 3961
3962 case SPECPDL_UNWIND_ARRAY: 3962 case SPECPDL_UNWIND_ARRAY:
3963 mark_maybe_objects (pdl->unwind_array.array, pdl->unwind_array.nelts); 3963 mark_objects (pdl->unwind_array.array, pdl->unwind_array.nelts);
3964 break; 3964 break;
3965 3965
3966 case SPECPDL_UNWIND_EXCURSION: 3966 case SPECPDL_UNWIND_EXCURSION: