[commit: ghc] master: Fix build on OSX, thanks to David Peixotto (e06ffb5)

Ben Lippmeier benl at ouroborus.net
Fri Jul 22 07:43:25 CEST 2011


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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/e06ffb5ea6d6383be63b61f6695501364fdcba1a

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

commit e06ffb5ea6d6383be63b61f6695501364fdcba1a
Author: Ben Lippmeier <benl at ouroborus.net>
Date:   Fri Jul 22 15:37:13 2011 +1000

    Fix build on OSX, thanks to David Peixotto

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

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

diff --git a/rts/Trace.h b/rts/Trace.h
index 40a4522..f896c0e 100644
--- a/rts/Trace.h
+++ b/rts/Trace.h
@@ -512,7 +512,6 @@ INLINE_HEADER void traceSparkCounters(Capability *cap STG_UNUSED)
     if (RTS_UNLIKELY(TRACE_spark_sampled)) {
         traceSparkCounters_(cap, cap->spark_stats, sparkPoolSize(cap->sparks));
     }
-#endif
     dtraceSparkCounters((EventCapNo)cap->no,
                         cap->spark_stats.created,
                         cap->spark_stats.dud,
@@ -521,6 +520,7 @@ INLINE_HEADER void traceSparkCounters(Capability *cap STG_UNUSED)
                         cap->spark_stats.gcd,
                         cap->spark_stats.fizzled,
                         sparkPoolSize(cap->sparks));
+#endif
 }
 
 INLINE_HEADER void traceEventSparkCreate(Capability *cap STG_UNUSED)





More information about the Cvs-ghc mailing list