X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2Fwin32%2FAsyncIO.c;h=12893f35364e0dbe1cb85e063ead35ac7ca6c090;hb=024b922953fe59a244ddeb1bf4ee05873ceffbbf;hp=acb40eb1719d677741cca7c197b6766a38e65606;hpb=135776b8b82d008bb7c66e009119a1bf94d41e7b;p=ghc-hetmet.git

diff --git a/ghc/rts/win32/AsyncIO.c b/ghc/rts/win32/AsyncIO.c
index acb40eb..12893f3 100644
--- a/ghc/rts/win32/AsyncIO.c
+++ b/ghc/rts/win32/AsyncIO.c
@@ -196,6 +196,9 @@ shutdownAsyncIO()
 int
 awaitRequests(rtsBool wait)
 {
+#ifndef THREADED_RTS
+  // none of this is actually used in the threaded RTS
+
 start:
 #if 0
     fprintf(stderr, "awaitRequests(): %d %d %d\n", issued_reqs, completed_hw, wait);
@@ -306,6 +309,7 @@ start:
 	LeaveCriticalSection(&queue_lock);
 	return 1;
     }
+#endif /* !THREADED_RTS */
 }
 
 /*