From 00f221ce599e0273b315e70691e6877399a25848 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 3 Dec 2001 22:44:48 +0000
Subject: [PATCH] [project @ 2001-12-03 22:44:48 by sof] Use the message queue
 friendly MsgWaitForMultipleObjects()

---
 ghc/lib/std/cbits/inputReady.c |   11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/ghc/lib/std/cbits/inputReady.c b/ghc/lib/std/cbits/inputReady.c
index bf86afb..85b098f 100644
--- a/ghc/lib/std/cbits/inputReady.c
+++ b/ghc/lib/std/cbits/inputReady.c
@@ -1,9 +1,7 @@
 /* 
  * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
  *
- * $Id: inputReady.c,v 1.10 2001/12/03 20:59:08 sof Exp $
- *
- * hReady Runtime Support
+ * hWaitForInput Runtime Support
  */
 
 /* select and supporting types is not Posix */
@@ -51,8 +49,11 @@ inputReady(int fd, int msecs, int isSock)
       DWORD rc;
       HANDLE hFile = (HANDLE)_get_osfhandle(fd);
     
-      rc = WaitForSingleObject( hFile,
-			        msecs /*millisecs*/);
+      rc = MsgWaitForMultipleObjects( 1,
+				      &hFile,
+				      FALSE, /* wait all */
+			              msecs, /*millisecs*/
+				      QS_ALLEVENTS);
     
       /* 1 => Input ready, 0 => not ready, -1 => error */
       switch (rc) {
-- 
1.7.10.4