[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.

diff --git a/ghc/tests/concurrent/should_run/conc004.hs b/ghc/tests/concurrent/should_run/conc004.hs
index 246f898..bffa3cc 100644 (file)
--- 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"