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

On branch  : master

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

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

commit b2d3c5576050a69c26a546ba10726618a72d4b67
Author: Simon Marlow <[email protected]>
Date:   Thu Dec 1 11:56:39 2011 +0000

    Forgot an initMutex(); fixes profthreaded failures on Windows

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

 rts/Profiling.c |    4 ++++
 1 files changed, 4 insertions(+), 0 deletions(-)

diff --git a/rts/Profiling.c b/rts/Profiling.c
index ac2708e..7fb7f9e 100644
--- a/rts/Profiling.c
+++ b/rts/Profiling.c
@@ -152,6 +152,10 @@ initProfiling1 (void)
             capabilities[n].r.rCCCS = CCS_SYSTEM;
         }
     }
+
+#ifdef THREADED_RTS
+    initMutex(&ccs_mutex);
+#endif
 }
 
 void



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

Reply via email to