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

bacek at svn.parrot.org bacek at svn.parrot.org
Sat Oct 23 05:06:35 UTC 2010


Author: bacek
Date: Sat Oct 23 05:06:34 2010
New Revision: 49635
URL: https://trac.parrot.org/parrot/changeset/49635

Log:
DRY: use set_get_flags function

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	Fri Oct 22 03:04:49 2010	(r49634)
+++ branches/generational_gc/src/gc/gc_ms2.c	Sat Oct 23 05:06:34 2010	(r49635)
@@ -1543,10 +1543,7 @@
     if (gen != self->current_generation) {
         LIST_REMOVE(self->objects[gen], item);
         LIST_APPEND(self->objects[self->current_generation], item);
-
-        pmc->flags &= ~(PObj_GC_generation_0_FLAG
-            | PObj_GC_generation_1_FLAG);
-        pmc->flags |= gen2flags(self->current_generation);
+        gc_ms2_set_gen_flags(interp, pmc, self->current_generation);
     }
 
     PObj_live_SET(pmc);
@@ -1583,10 +1580,7 @@
 
     LIST_REMOVE(self->strings[gen], item);
     LIST_APPEND(self->strings[self->current_generation], item);
-    s->flags &= ~(PObj_GC_generation_0_FLAG
-        | PObj_GC_generation_1_FLAG
-        | PObj_GC_generation_2_FLAG);
-    s->flags |= gen2flags(self->current_generation);
+    gc_ms2_set_gen_flags(interp, s, self->current_generation);
 }
 
 /*


More information about the parrot-commits mailing list