From eb204c28e59bbdd3b10e668d21ea0507df176469 Mon Sep 17 00:00:00 2001 From: ken Date: Tue, 7 Aug 2001 20:08:37 +0000 Subject: [PATCH] [project @ 2001-08-07 20:08:37 by ken] Change the number of threads to spawn in this test from 1000000 to 10000000, to (more likely) trigger the Alpha StgRun() bug that I just fixed. --- ghc/tests/concurrent/should_run/conc004.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ghc/tests/concurrent/should_run/conc004.hs b/ghc/tests/concurrent/should_run/conc004.hs index 246f898..bffa3cc 100644 --- a/ghc/tests/concurrent/should_run/conc004.hs +++ b/ghc/tests/concurrent/should_run/conc004.hs @@ -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 10000000 takeMVar mvar putStr "done" -- 1.7.10.4