[project @ 2005-04-07 14:33:30 by simonmar]

[ghc-hetmet.git] / ghc / rts / Select.c

diff --git a/ghc/rts/Select.c b/ghc/rts/Select.c
index 67ba589..3cec3a9 100644 (file)
--- a/ghc/rts/Select.c
+++ b/ghc/rts/Select.c
@@ -6,7 +6,6 @@
  *
  * ---------------------------------------------------------------------------*/
 
-
 /* we're outside the realms of POSIX here... */
 /* #include "PosixSource.h" */
 
@@ -37,6 +36,11 @@
 /* last timestamp */
 lnat timestamp = 0;
 
+#if !defined(RTS_SUPPORTS_THREADS)
+/* 
+ * The threaded RTS uses an IO-manager thread in Haskell instead (see GHC.Conc) 
+ */
+
 /* There's a clever trick here to avoid problems when the time wraps
  * around.  Since our maximum delay is smaller than 31 bits of ticks
  * (it's actually 31 bits of microseconds), we can safely check
@@ -262,3 +266,5 @@ awaitEvent(rtsBool wait)
       
     } while (wait && !interrupted && run_queue_hd == END_TSO_QUEUE);
 }
+
+#endif /* RTS_SUPPORTS_THREADS */