Commit eb1116b3 authored by simonmar's avatar simonmar
Browse files

[project @ 1999-08-26 13:34:36 by simonmar]

threadDelay etc. should be defined in PrelConc.
parent 327b1c6e
......@@ -194,19 +194,9 @@ specified file descriptor is available for reading (just like select).
@threadWaitWrite@ is similar, but for writing on a file descriptor.
\begin{code}
{- Not yet -- SDM
threadDelay, threadWaitRead, threadWaitWrite :: Int -> IO ()
threadDelay (I# x#) = IO $ \ s# ->
case delay# x# s# of
s2# -> (# s2#, () #)
threadWaitRead (I# x#) = IO $ \ s# ->
case waitRead# x# s# of
s2# -> (# s2#, () #)
threadWaitWrite (I# x#) = IO $ \ s# ->
case waitWrite# x# s# of
s2# -> (# s2#, () #)
-}
threadDelay (I# ms) = IO $ \s -> case delay# ms s of s -> (# s, () #)
threadWaitRead (I# fd) = IO $ \s -> case waitRead# fd s of s -> (# s, () #)
threadWaitWrite (I# fd) = IO $ \s -> case waitWrite# fd s of s -> (# s, () #)
\end{code}
......@@ -1180,17 +1180,6 @@ mayBlock fo act = do
CCALL(setNonBlockingIOFlag__) fo -- reset file object.
CCALL(setConnNonBlockingIOFlag__) fo -- reset (connected) file object.
return rc
-- #ifdef __HUGS__
threadDelay, threadWaitRead, threadWaitWrite :: Int -> IO ()
-- Hugs does actually have the primops needed to implement these
-- but the primops don't actually do anything...
threadDelay (I# ms) = IO $ \s -> case delay# ms s of s -> (# s, () #)
threadWaitRead (I# fd) = IO $ \s -> case waitRead# fd s of s -> (# s, () #)
threadWaitWrite (I# fd) = IO $ \s -> case waitWrite# fd s of s -> (# s, () #)
-- #endif
\end{code}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment