[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