Changeset 12868 in project for chicken/branches/chicken-3/runtime.c

Timestamp:

12/22/08 10:02:26 (12 years ago)

Author:

felix winkelmann

Message:

finalizer bug not fixed, perhaps now

File:

• chicken/branches/chicken-3/runtime.c (modified) (3 diffs)

chicken/branches/chicken-3/runtime.c

@@ -2786 +2786 @@
       mark(&gcrp->value);
 
+    /* mark finalizer procedures: */
+    for(flist = finalizer_list; flist != NULL; flist = flist->next) 
+      mark(&flist->finalizer);
+
     mark_system_globals();
   }
@@ -2850 +2854 @@
         for(flist = finalizer_list; flist != NULL; flist = flist->next) {
           mark(&flist->item);
-          mark(&flist->finalizer);
           ++fcount;
         }
@@ -2859 +2862 @@
       else {
         j = fcount = 0;
-
-        for(flist = finalizer_list; flist != NULL; flist = flist->next) 
-          mark(&flist->finalizer);
 
         for(flist = finalizer_list; flist != NULL; flist = flist->next) {