[project @ 1997-03-22 08:42:20 by sof]

Practically remove the limit on required threads (64k default)

diff --git a/ghc/runtime/main/RtsFlags.lc b/ghc/runtime/main/RtsFlags.lc
index 417cc7f..8c32dde 100644 (file)
--- 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;