From: Simon Marlow <simonmar@microsoft.com>
Date: Fri, 16 Jun 2006 14:06:33 +0000 (+0000)
Subject: allow the max number of workers to scale with +RTS -N
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=c58450c0c62dc9bf74ecd5df3c07a3f1ce511e7f;ds=sidebyside

allow the max number of workers to scale with +RTS -N
---

diff --git a/rts/Task.c b/rts/Task.c
index 918dc55..8779e29 100644
--- a/rts/Task.c
+++ b/rts/Task.c
@@ -58,7 +58,11 @@ initTaskManager (void)
 	taskCount = 0;
 	workerCount = 0;
 	tasksRunning = 0;
+#if defined(THREADED_RTS)
+	maxWorkers = DEFAULT_MAX_WORKERS * RtsFlags.ParFlags.nNodes;
+#else
 	maxWorkers = DEFAULT_MAX_WORKERS;
+#endif
 	initialized = 1;
 #if defined(THREADED_RTS)
 	newThreadLocalKey(&currentTaskKey);