From: sof <unknown>
Date: Mon, 3 Dec 2001 22:44:48 +0000 (+0000)
Subject: [project @ 2001-12-03 22:44:48 by sof]
X-Git-Tag: Approximately_9120_patches~477
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=00f221ce599e0273b315e70691e6877399a25848;p=ghc-hetmet.git

[project @ 2001-12-03 22:44:48 by sof]
Use the message queue friendly MsgWaitForMultipleObjects()
---

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) {