Commit 7924cfb9 authored by Simon Marlow's avatar Simon Marlow
Browse files

follow changes from #3310

parent 4f88d707
......@@ -14,6 +14,6 @@ main = do
spawner c 0 = putMVar mvar ()
spawner c n = do { c (spawner c (n-1)); return ()}
spawner forkIO 1000000
spawner forkIO 100000
takeMVar mvar
putStr "done"
thread blocked indefinitely
thread blocked indefinitely in an MVar operation
caught: thread blocked indefinitely
caught: thread blocked indefinitely in an MVar operation
thread blocked indefinitely
thread blocked indefinitely in an MVar operation
Left thread blocked indefinitely
Left thread blocked indefinitely in an MVar operation
......@@ -26,7 +26,7 @@ main = do
putMVar th "child"
threadDelay 500000
yield -- another hack, just in case child yields right after "sleep 1"
putMVar th "main" `catch` (\BlockedOnDeadMVar -> return ())
putMVar th "main" `catch` (\BlockedIndefinitelyOnMVar -> return ())
-- tests that the other thread doing an unsafe call to
-- sleep(3) has blocked this thread. Not sure if this
-- is a useful test.
......
Supports Markdown
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