From: sof <unknown>
Date: Mon, 1 Mar 1999 09:23:58 +0000 (+0000)
Subject: [project @ 1999-03-01 09:23:58 by sof]
X-Git-Tag: Approximately_9120_patches~6490
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=fcc081fb3a23b32f26e74d9b1baa06e4368bd7df;p=ghc-hetmet.git

[project @ 1999-03-01 09:23:58 by sof]
mingw32: no select() in sight.
---

diff --git a/ghc/lib/std/cbits/inputReady.c b/ghc/lib/std/cbits/inputReady.c
index cea1790..2e07fcf 100644
--- a/ghc/lib/std/cbits/inputReady.c
+++ b/ghc/lib/std/cbits/inputReady.c
@@ -1,7 +1,7 @@
 /* 
  * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
  *
- * $Id: inputReady.c,v 1.3 1998/12/02 13:27:42 simonm Exp $
+ * $Id: inputReady.c,v 1.4 1999/03/01 09:23:58 sof Exp $
  *
  * hReady Runtime Support
  */
@@ -57,8 +57,10 @@ StgInt msecs;
 {
     IOFileObject* fo = (IOFileObject*)ptr;
     int c, fd, maxfd, ready;
+#ifndef mingw32_TARGET_OS
     fd_set rfd;
     struct timeval tv;
+#endif
 
     if ( FILEOBJ_IS_EOF(fo) )
 	return 0;
@@ -68,6 +70,9 @@ StgInt msecs;
 	   return 1;
     }
 
+#ifdef mingw32_TARGET_OS
+    return 0;
+#else
     fd = fo->fd;
 
     /* Now try to get a character */
@@ -88,5 +93,5 @@ StgInt msecs;
 
     /* 1 => Input ready, 0 => time expired  (-1 error) */
     return (ready);
-
+#endif
 }