[svn:parrot] r49647 - branches/generational_gc/src/gc

[bacek at svn.parrot.org]

Author: bacek
Date: Sun Oct 24 21:07:29 2010
New Revision: 49647
URL: https://trac.parrot.org/parrot/changeset/49647

Log:
Paint strings white as well after m&s.

Modified:
   branches/generational_gc/src/gc/gc_ms2.c

Modified: branches/generational_gc/src/gc/gc_ms2.c
==============================================================================
--- branches/generational_gc/src/gc/gc_ms2.c	Sun Oct 24 20:08:36 2010	(r49646)
+++ branches/generational_gc/src/gc/gc_ms2.c	Sun Oct 24 21:07:29 2010	(r49647)
@@ -806,6 +806,14 @@
         while (tmp) {
             PMC *pmc = LLH2Obj_typed(tmp, PMC);
             PObj_live_CLEAR(pmc);
+            pmc->flags &= ~PObj_GC_generation_2_FLAG;
+            tmp = tmp->next;
+        }
+
+        tmp = self->strings[1]->first;
+        while (tmp) {
+            PMC *pmc = LLH2Obj_typed(tmp, PMC);
+            PObj_live_CLEAR(pmc);
             tmp = tmp->next;
         }
     }
@@ -821,6 +829,14 @@
         while (tmp) {
             PMC *pmc = LLH2Obj_typed(tmp, PMC);
             PObj_live_CLEAR(pmc);
+            pmc->flags &= ~PObj_GC_generation_2_FLAG;
+            tmp = tmp->next;
+        }
+
+        tmp = self->strings[2]->first;
+        while (tmp) {
+            PMC *pmc = LLH2Obj_typed(tmp, PMC);
+            PObj_live_CLEAR(pmc);
             tmp = tmp->next;
         }
     }