Mercurial > emacs

changeset 26364:7b0217d9259c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fgarbage_collect): Call mark_byte_stack and relocate_byte_pcs. (init_alloc_once, init_alloc): Set byte_stack_list to null.
author Gerd Moellmann <gerd@gnu.org>
date Fri, 05 Nov 1999 21:26:42 +0000
parents efb608f1cb10
children 6527989cb214
files src/alloc.c
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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