diff options
author | Gerd Moellmann <[email protected]> | 1999-11-05 21:26:42 +0000 |
---|---|---|
committer | Gerd Moellmann <[email protected]> | 1999-11-05 21:26:42 +0000 |
commit | 630686c871f4ce1f6498c5675d0b7ce008387d12 (patch) | |
tree | dba0881b1ba0f55b5b29e5ba9d808e10d0ffb5ea /src/alloc.c | |
parent | 7ca1e8b752b9844676922fd2515efdfd4be6a08d (diff) |
(Fgarbage_collect): Call mark_byte_stack and
relocate_byte_pcs.
(init_alloc_once, init_alloc): Set byte_stack_list to null.
Diffstat (limited to 'src/alloc.c')
-rw-r--r-- | src/alloc.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/alloc.c b/src/alloc.c index be4ab45168..e87ad40666 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 |