# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 941837202 0
# Node ID 7b0217d9259c18266c51ce6e9317e9ecd51a000a
# Parent  efb608f1cb10e4ccfbb81c9146360aa03e059107
(Fgarbage_collect): Call mark_byte_stack and
relocate_byte_pcs.
(init_alloc_once, init_alloc): Set byte_stack_list to null.

diff -r efb608f1cb10 -r 7b0217d9259c src/alloc.c
--- a/src/alloc.c	Fri Nov 05 21:26:15 1999 +0000
+++ b/src/alloc.c	Fri Nov 05 21:26:42 1999 +0000
@@ -1840,6 +1840,7 @@
 	  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 @@
   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 @@
 
   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 @@
 init_alloc ()
 {
   gcprolist = 0;
+  byte_stack_list = 0;
 }
 
 void