From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 11 Mar 2009 09:42:08 +0000 (+0000)
Subject: Fix #2992: don't create a named event
X-Git-Tag: 2009-03-13~4
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=29fd0a47007971cd7def0d778faf3f5abb893d31

Fix #2992: don't create a named event
Evidently I misread the docs for CreateEvent: if you pass a name to
CreateEvent, then it creates a single shared system-wide Event with
that name.  So all Haskell processes on the machine were sharing the
same Event object.  duh.
---

diff --git a/rts/win32/ThrIOManager.c b/rts/win32/ThrIOManager.c
index e2310ef..c52928c 100644
--- a/rts/win32/ThrIOManager.c
+++ b/rts/win32/ThrIOManager.c
@@ -34,7 +34,7 @@ getIOManagerEvent (void)
         hRes = CreateEvent ( NULL, // no security attrs
                              TRUE, // manual reset
                              FALSE, // initial state,
-                             "IO Manager Event" );
+                             NULL ); // event name: NULL for private events
         if (hRes == NULL) {
             sysErrorBelch("getIOManagerEvent");
             stg_exit(EXIT_FAILURE);