From 3e140bdf457f0c4c762ba344f396d84afef6d8f4 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Mon, 16 Jun 2008 07:31:11 +0000 Subject: [PATCH] don't try to parallelise marking GC (yet) --- rts/sm/GC.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/rts/sm/GC.c b/rts/sm/GC.c index 165c706..e0792d9 100644 --- a/rts/sm/GC.c +++ b/rts/sm/GC.c @@ -243,10 +243,10 @@ GarbageCollect ( rtsBool force_major_gc ) start_gc_threads(); /* How many threads will be participating in this GC? - * We don't try to parallelise minor GC. + * We don't try to parallelise minor GC, or mark/compact/sweep GC. */ #if defined(THREADED_RTS) - if (n < (4*1024*1024 / BLOCK_SIZE)) { + if (n < (4*1024*1024 / BLOCK_SIZE) || oldest_gen->steps[0].mark) { n_gc_threads = 1; } else { n_gc_threads = RtsFlags.ParFlags.gcThreads; -- 1.7.10.4