[svn:parrot] r48465 - branches/unshared_buffers/src/gc
darbelo at svn.parrot.org
darbelo at svn.parrot.org
Fri Aug 13 17:10:19 UTC 2010
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)
More information about the parrot-commits
mailing list