Win32 version of awaitEvent(). Easy :)
/* -----------------------------------------------------------------------------
/* -----------------------------------------------------------------------------
- * $Id: Select.c,v 1.1 1999/08/25 16:37:42 simonmar Exp $
+ * $Id: Select.c,v 1.2 1999/09/13 08:28:45 sof Exp $
*
* (c) The GHC Team 1995-1999
*
*
* (c) The GHC Team 1995-1999
*
void
awaitEvent(rtsBool wait)
{
void
awaitEvent(rtsBool wait)
{
+#ifdef mingw32_TARGET_OS
+/*
+ * Win32 doesn't support select(). ToDo: use MsgWaitForMultipleObjects()
+ * to achieve (similar) effect.
+ *
+ */
+ return;
+#else
+
StgTSO *tso, *prev, *next;
rtsBool ready;
fd_set rfd,wfd;
StgTSO *tso, *prev, *next;
rtsBool ready;
fd_set rfd,wfd;
prev->link = END_TSO_QUEUE;
blocked_queue_tl = prev;
}
prev->link = END_TSO_QUEUE;
blocked_queue_tl = prev;
}