Changeset 13290

Timestamp:

Dec 10, 2009, 5:06:33 AM (15 years ago)

Author:

gz

Message:

forward termination lists in tenured populations

File:

• branches/working-0711/ccl/lisp-kernel/gc-common.c (modified) (1 diff)

branches/working-0711/ccl/lisp-kernel/gc-common.c

@@ -1398 +1398 @@
         LispObj *base = ptr_from_lispobj(this);
         natural dnode = area_dnode(&base[3], tenured_low);
-        if ((dnode < tenured_dnodes) && (base[3] >= GCarealow)) {
-          set_bit(refbits, dnode);
+        if (dnode < tenured_dnodes) {
+          if (base[3] >= GCarealow) {
+            set_bit(refbits, dnode);
+          }
+          // might have set termination list to a new pointer
+          if ((base[2] >> population_termination_bit) && (base[4] >= GCarealow)) {
+            set_bit(refbits, dnode+1);
+          }
         }
         this = base[1];