From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 14 May 2010 09:49:43 +0000 (+0000)
Subject: add missing initialisation for eventBufMutex
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8aac921cbf7b58b67d202df2fc59a88011d6fdb3;p=ghc-hetmet.git

add missing initialisation for eventBufMutex
---

diff --git a/rts/eventlog/EventLog.c b/rts/eventlog/EventLog.c
index 7026a2a..ebfbb7b 100644
--- a/rts/eventlog/EventLog.c
+++ b/rts/eventlog/EventLog.c
@@ -288,6 +288,10 @@ initEventLogging(void)
     for (c = 0; c < n_caps; ++c) {
         postBlockMarker(&capEventBuf[c]);
     }
+
+#ifdef THREADED_RTS
+    initMutex(&eventBufMutex);
+#endif
 }
 
 void