diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2020-08-30 23:40:11 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2020-08-31 00:05:56 -0700 |
| commit | 7e2f6f8448f9d98e90e0343e2aeba22a7985480f (patch) | |
| tree | 09208ce118690c350559d72a313bd5dd30e00870 /src/eval.c | |
| parent | cf95bb0213908a4caab65dccfa67b4f1572babe2 (diff) | |
| download | emacs-7e2f6f8448f9d98e90e0343e2aeba22a7985480f.tar.gz | |
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.c | 2 |
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) break; case SPECPDL_UNWIND_ARRAY: - mark_maybe_objects (pdl->unwind_array.array, pdl->unwind_array.nelts); + mark_objects (pdl->unwind_array.array, pdl->unwind_array.nelts); break; case SPECPDL_UNWIND_EXCURSION: |