Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/02871adf5f27de9e8748c0a24d086f5be5827203

>---------------------------------------------------------------

commit 02871adf5f27de9e8748c0a24d086f5be5827203
Author: Mikolaj <[email protected]>
Date:   Fri Jul 8 19:43:41 2011 +0200

    include spark counters in the sparks trace class

>---------------------------------------------------------------

 rts/Trace.h |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/rts/Trace.h b/rts/Trace.h
index b29df52..34efdf6 100644
--- a/rts/Trace.h
+++ b/rts/Trace.h
@@ -498,7 +498,7 @@ INLINE_HEADER void traceOSProcessInfo(void)
 INLINE_HEADER void traceSparkCounters(Capability *cap STG_UNUSED)
 {
 #ifdef THREADED_RTS
-    if (RTS_UNLIKELY(TRACE_sched)) {
+    if (RTS_UNLIKELY(TRACE_spark)) {
         traceSparkCounters_(cap, cap->spark_stats, sparkPoolSize(cap->sparks));
     }
 #endif



_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to