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

bacek at svn.parrot.org bacek at svn.parrot.org
Wed Oct 13 12:31:34 UTC 2010


Author: bacek
Date: Wed Oct 13 12:31:34 2010
New Revision: 49527
URL: https://trac.parrot.org/parrot/changeset/49527

Log:
Fix copy-paste bug in marking oldest generation.

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	Wed Oct 13 12:03:36 2010	(r49526)
+++ branches/generational_gc/src/gc/gc_ms2.c	Wed Oct 13 12:31:34 2010	(r49527)
@@ -744,7 +744,7 @@
 
             if (PObj_live_TEST(pmc)) {
                 gc_ms2_seal_object(interp, pmc);
-                gc_ms2_set_gen_flags(interp, pmc, i+1);
+                gc_ms2_set_gen_flags(interp, pmc, 2);
             }
 
             tmp = next;
@@ -1381,7 +1381,7 @@
     pmc->flags &= ~(PObj_GC_generation_0_FLAG
         | PObj_GC_generation_1_FLAG
         | PObj_GC_generation_2_FLAG);
-    pmc->flags |= generation_to_flags(self->current_generation);
+    pmc->flags |= gen2flags(self->current_generation);
 
     pmc->flags |= PObj_GC_generation_2_FLAG;
 }
@@ -1408,7 +1408,7 @@
     s->flags &= ~(PObj_GC_generation_0_FLAG
         | PObj_GC_generation_1_FLAG
         | PObj_GC_generation_2_FLAG);
-    s->flags |= generation_to_flags(self->current_generation);
+    s->flags |= gen2flags(self->current_generation);
 }
 /*
 =item C<static void gc_ms2_sweep_pool(PARROT_INTERP, Pool_Allocator *pool,
@@ -1867,7 +1867,7 @@
     obj->flags &= ~(PObj_GC_generation_0_FLAG
         | PObj_GC_generation_1_FLAG
         | PObj_GC_generation_2_FLAG);
-    obj->flags |= generation_to_flags(gen);
+    obj->flags |= gen2flags(gen);
 }
 
 /*


More information about the parrot-commits mailing list