Skip to content
Snippets Groups Projects
Commit 29fd0a47 authored by Simon Marlow's avatar Simon Marlow
Browse files

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.
parent 0b2bbce8
No related branches found
No related tags found
No related merge requests found
......@@ -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);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment