From 29fd0a47007971cd7def0d778faf3f5abb893d31 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 11 Mar 2009 09:42:08 +0000 Subject: [PATCH] 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. --- rts/win32/ThrIOManager.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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); -- 1.7.10.4