[svn:parrot] r48465 - branches/unshared_buffers/src/gc

[darbelo at svn.parrot.org]

Author: darbelo
Date: Fri Aug 13 17:10:18 2010
New Revision: 48465
URL: https://trac.parrot.org/parrot/changeset/48465

Log:
There is no point in calling compact_pool() after calling Parrot_gc_mark_and_sweep(). The pools are already compacted by then.

Modified:
   branches/unshared_buffers/src/gc/alloc_resources.c

Modified: branches/unshared_buffers/src/gc/alloc_resources.c
==============================================================================
--- branches/unshared_buffers/src/gc/alloc_resources.c	Fri Aug 13 17:10:07 2010	(r48464)
+++ branches/unshared_buffers/src/gc/alloc_resources.c	Fri Aug 13 17:10:18 2010	(r48465)
@@ -334,13 +334,6 @@
         if (!mem_pools->gc_mark_block_level
         &&   mem_pools->mem_allocs_since_last_collect) {
             Parrot_gc_mark_and_sweep(interp, GC_trace_stack_FLAG);
-
-            if (interp->gc_sys->sys_type != INF) {
-                /* Compact the pool if allowed and worthwhile */
-                if (pool->compact)
-                   (*pool->compact) (interp, mem_pools, pool);
-            }
-
         }
         if (pool->top_block->free < size) {
             if (pool->minimum_block_size < 65536 * 16)