From fcc081fb3a23b32f26e74d9b1baa06e4368bd7df Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 1 Mar 1999 09:23:58 +0000
Subject: [PATCH] [project @ 1999-03-01 09:23:58 by sof] mingw32: no select()
in sight.
---
ghc/lib/std/cbits/inputReady.c | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/ghc/lib/std/cbits/inputReady.c b/ghc/lib/std/cbits/inputReady.c
index cea179018abb..2e07fcf69613 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
}
--
GitLab