From 630686c871f4ce1f6498c5675d0b7ce008387d12 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 5 Nov 1999 21:26:42 +0000 Subject: [PATCH] (Fgarbage_collect): Call mark_byte_stack and relocate_byte_pcs. (init_alloc_once, init_alloc): Set byte_stack_list to null. --- src/alloc.c | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/alloc.c b/src/alloc.c index be4ab45168c..e87ad406667 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -1840,6 +1840,7 @@ Garbage collection happens automatically if you cons more than\n\ mark_object (&tail->var[i]); XMARK (tail->var[i]); } + mark_byte_stack (); for (bind = specpdl; bind != specpdl_ptr; bind++) { mark_object (&bind->symbol); @@ -1922,6 +1923,7 @@ Garbage collection happens automatically if you cons more than\n\ for (tail = gcprolist; tail; tail = tail->next) for (i = 0; i < tail->nvars; i++) XUNMARK (tail->var[i]); + relocate_byte_pcs (); for (backlist = backtrace_list; backlist; backlist = backlist->next) { XUNMARK (*backlist->function); @@ -3324,6 +3326,7 @@ init_alloc_once () ignore_warnings = 0; gcprolist = 0; + byte_stack_list = 0; staticidx = 0; consing_since_gc = 0; gc_cons_threshold = 100000 * sizeof (Lisp_Object); @@ -3337,6 +3340,7 @@ void init_alloc () { gcprolist = 0; + byte_stack_list = 0; } void -- 2.39.5