Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/39524142bbc7a710a48ebda20f0c8afaf3601791 >--------------------------------------------------------------- commit 39524142bbc7a710a48ebda20f0c8afaf3601791 Author: Paolo Capriotti <[email protected]> Date: Mon Aug 13 18:23:26 2012 +0100 Fix test case 7087 for x86. >--------------------------------------------------------------- tests/rts/7087.hs | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/tests/rts/7087.hs b/tests/rts/7087.hs index 4e206d1..bf9a8fd 100644 --- a/tests/rts/7087.hs +++ b/tests/rts/7087.hs @@ -3,5 +3,6 @@ import Control.Concurrent main = do t <- myThreadId forkIO (threadDelay 100000 >> killThread t) - threadDelay 9223372036840001 + threadDelay . fromInteger $ + min 9223372036840001 (fromIntegral (maxBound :: Int)) -- caused an overflow in 7.4.2, non-threaded RTS _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
