*
* ---------------------------------------------------------------------------*/
-
/* we're outside the realms of POSIX here... */
/* #include "PosixSource.h" */
#endif
/* last timestamp */
-nat timestamp = 0;
+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
* (idea due to Andy Gill).
*/
rtsBool
-wakeUpSleepingThreads(nat ticks)
+wakeUpSleepingThreads(lnat ticks)
{
StgTSO *tso;
rtsBool flag = rtsFalse;
} while (wait && !interrupted && run_queue_hd == END_TSO_QUEUE);
}
+
+#endif /* RTS_SUPPORTS_THREADS */