From: Simon Marlow <simonmarhaskell@gmail.com>
Date: Wed, 16 Apr 2008 21:57:41 +0000 (+0000)
Subject: per-thread debug output when using multiple threads, not just major gc
X-Git-Tag: Before_cabalised-GHC~223
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=7e9347139202710b6d61a77b72216d5da09a5cca

per-thread debug output when using multiple threads, not just major gc
---

diff --git a/rts/sm/GC.c b/rts/sm/GC.c
index 94da824..dc51465 100644
--- a/rts/sm/GC.c
+++ b/rts/sm/GC.c
@@ -461,7 +461,7 @@ GarbageCollect ( rtsBool force_major_gc )
   { 
       nat i;
       for (i=0; i < n_gc_threads; i++) {
-          if (major_gc) {
+          if (n_gc_threads > 1) {
               trace(TRACE_gc,"thread %d:", i);
               trace(TRACE_gc,"   copied           %ld", gc_threads[i]->copied * sizeof(W_));
               trace(TRACE_gc,"   any_work         %ld", gc_threads[i]->any_work);