From 3e6a3c3c38f37d29eddda9ee9c871efd179873c7 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sat, 22 Mar 1997 08:42:20 +0000
Subject: [PATCH] [project @ 1997-03-22 08:42:20 by sof] Practically remove
 the limit on required threads (64k default)

---
 ghc/runtime/main/RtsFlags.lc |   13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/ghc/runtime/main/RtsFlags.lc b/ghc/runtime/main/RtsFlags.lc
index 417cc7f..8c32dde 100644
--- a/ghc/runtime/main/RtsFlags.lc
+++ b/ghc/runtime/main/RtsFlags.lc
@@ -82,13 +82,22 @@ initRtsFlagsDefaults (STG_NO_ARGS)
     RTSflags.ProfFlags.typeSelector  = NULL;
     RTSflags.ProfFlags.kindSelector  = NULL;
 #endif /* PROFILING */
+/* there really shouldn't be a threads limit for concurrent mandatory threads.
+   For now, unlimitied means less than 64k (there's a storage overhead) -- SOF
+*/
+#if defined(CONCURRENT) && !defined(GRAN)
+    RTSflags.ConcFlags.ctxtSwitchTime	= CS_MIN_MILLISECS;  /* In milliseconds */
+    RTSflags.ConcFlags.maxThreads	= 65536;
+    RTSflags.ConcFlags.stkChunkSize	= 1024;
+    RTSflags.ConcFlags.maxLocalSparks	= 65536;
+#endif /* CONCURRENT only */
 
-#ifdef CONCURRENT
+#if GRAN
     RTSflags.ConcFlags.ctxtSwitchTime	= CS_MIN_MILLISECS;  /* In milliseconds */
     RTSflags.ConcFlags.maxThreads	= 32;
     RTSflags.ConcFlags.stkChunkSize	= 1024;
     RTSflags.ConcFlags.maxLocalSparks	= 500;
-#endif /* CONCURRENT */
+#endif /* GRAN */
 
 #ifdef PAR
     RTSflags.ParFlags.parallelStats	= rtsFalse;
-- 
1.7.10.4