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

[bacek at svn.parrot.org]

Author: bacek
Date: Wed Oct 20 02:00:22 2010
New Revision: 49590
URL: https://trac.parrot.org/parrot/changeset/49590

Log:
Sweep strings as well.

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 20 02:00:13 2010	(r49589)
+++ branches/generational_gc/src/gc/gc_ms2.c	Wed Oct 20 02:00:22 2010	(r49590)
@@ -793,10 +793,17 @@
 
     /* Now. Sweep all dead objects */
     gc_ms2_sweep_pool(interp, self->pmc_allocator, self->objects[0], gc_ms2_sweep_pmc_cb);
-    if (gen >= 1)
+    gc_ms2_sweep_pool(interp, self->string_allocator, self->strings[0], gc_ms2_sweep_string_cb);
+
+    if (gen >= 1) {
         gc_ms2_sweep_pool(interp, self->pmc_allocator, self->objects[1], gc_ms2_sweep_pmc_cb);
-    if (gen == 2)
+        gc_ms2_sweep_pool(interp, self->string_allocator, self->strings[1], gc_ms2_sweep_string_cb);
+    }
+
+    if (gen == 2) {
         gc_ms2_sweep_pool(interp, self->pmc_allocator, self->objects[2], gc_ms2_sweep_pmc_cb);
+        gc_ms2_sweep_pool(interp, self->string_allocator, self->strings[2], gc_ms2_sweep_string_cb);
+    }
 
 
     /* Update some stats */