[project @ 2004-02-26 16:42:57 by simonmar]

Check result of SetEvent() for errors.

diff --git a/ghc/rts/OSThreads.c b/ghc/rts/OSThreads.c
index 5d3c8c9..1f44f81 100644 (file)
--- a/ghc/rts/OSThreads.c
+++ b/ghc/rts/OSThreads.c
@@ -169,8 +169,10 @@ broadcastCondition ( Condition* pCond )
 rtsBool
 signalCondition ( Condition* pCond )
 {
-  SetEvent(*pCond);
-  return rtsTrue;
+    if (SetEvent(*pCond) == 0) {
+       barf("SetEvent: %d", GetLastError());
+    }
+    return rtsTrue;
 }
 
 rtsBool