[svn:parrot] r49171 - branches/gc_massacre/src/gc

[bacek at svn.parrot.org]

Author: bacek
Date: Mon Sep 20 10:58:15 2010
New Revision: 49171
URL: https://trac.parrot.org/parrot/changeset/49171

Log:
Call to compact_pool after unblocking GC.

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

Modified: branches/gc_massacre/src/gc/gc_ms2.c
==============================================================================
--- branches/gc_massacre/src/gc/gc_ms2.c	Mon Sep 20 10:57:47 2010	(r49170)
+++ branches/gc_massacre/src/gc/gc_ms2.c	Mon Sep 20 10:58:15 2010	(r49171)
@@ -1007,7 +1007,6 @@
     gc_ms2_sweep_pool(interp, self->pmc_allocator, self->objects, gc_ms2_sweep_pmc_cb);
     gc_ms2_sweep_pool(interp, self->string_allocator, self->strings, gc_ms2_sweep_string_cb);
 
-    gc_ms2_compact_memory_pool(interp);
 
     //if (self->gc_threshold < 1024 * 1024 * 10)
     //    self->gc_threshold *= 1.1;
@@ -1018,6 +1017,8 @@
     self->gc_mark_block_level--;
     /* We swept all dead objects */
     self->num_early_gc_PMCs                      = 0;
+
+    gc_ms2_compact_memory_pool(interp);
 }