X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Feventlog%2FEventLog.c;fp=rts%2Feventlog%2FEventLog.c;h=ebfbb7b0e43bddeb107fd3c035a37319a891d67a;hb=8aac921cbf7b58b67d202df2fc59a88011d6fdb3;hp=7026a2abaf425a861f3f0470fc64257c2d4367fc;hpb=2febde47a9d53c141fedb9e56bc59ce739c96dce;p=ghc-hetmet.git

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