X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2Fwin32%2FAsyncIO.c;h=91495d5e8c2139274691d19bdc046f4671b1671e;hb=5973d067b3f8e43d7dd336a634f31ab61a1a133f;hp=a0e03cb6c046c947b29259b1a4cb8d043f786ab5;hpb=e0bc615fbf7b7461c24b4da038b14e788a3bf6e4;p=ghc-hetmet.git

diff --git a/ghc/rts/win32/AsyncIO.c b/ghc/rts/win32/AsyncIO.c
index a0e03cb..91495d5 100644
--- a/ghc/rts/win32/AsyncIO.c
+++ b/ghc/rts/win32/AsyncIO.c
@@ -9,6 +9,7 @@
 #include <windows.h>
 #include <stdio.h>
 #include "Schedule.h"
+#include "RtsFlags.h"
 #include "Capability.h"
 #include "win32/AsyncIO.h"
 #include "win32/IOManager.h"
@@ -200,9 +201,11 @@ start:
 	    DWORD dwRes = WaitForMultipleObjects(2, wait_handles, FALSE, INFINITE);
 	    switch (dwRes) {
 	    case WAIT_OBJECT_0:
+		/* a request was completed */
 		break;
 	    case WAIT_OBJECT_0 + 1:
 	    case WAIT_TIMEOUT:
+		/* timeout (unlikely) or told to abandon waiting */
 		return 0;
 	    case WAIT_FAILED: {
 		DWORD dw = GetLastError();