From: ken <unknown>
Date: Tue, 7 Aug 2001 20:08:37 +0000 (+0000)
Subject: [project @ 2001-08-07 20:08:37 by ken]
X-Git-Tag: Approximately_9120_patches~1329
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=eb204c28e59bbdd3b10e668d21ea0507df176469;p=ghc-hetmet.git

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