diff options
author | 2004-03-09 11:37:14 +0000 | |
---|---|---|
committer | 2004-03-09 11:37:14 +0000 | |
commit | aa173516ab4794e6f3aa7c6a80a0578e45947cd5 (patch) | |
tree | 01830900a3eb50f4bc5d2bb7a79e4f44ad25483d /System/Posix/Process.hsc | |
parent | fa8bd62e22be9f28c8b7ba196e614de87e9f0fa5 (diff) |
[project @ 2004-03-09 11:37:14 by simonmar]
change the foreign import of waitpid to "safe", so that we can use it
in a non-blocking way with the threaded RTS.
Diffstat (limited to 'System/Posix/Process.hsc')
-rw-r--r-- | System/Posix/Process.hsc | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/System/Posix/Process.hsc b/System/Posix/Process.hsc index 428013e..ea06930 100644 --- a/System/Posix/Process.hsc +++ b/System/Posix/Process.hsc @@ -294,7 +294,8 @@ getProcessStatus block stopped pid = _ -> do ps <- decipherWaitStatus wstatp return (Just ps) -foreign import ccall unsafe "waitpid" +-- safe, because this call might block +foreign import ccall safe "waitpid" c_waitpid :: CPid -> Ptr CInt -> CInt -> IO CPid getGroupProcessStatus :: Bool |