[project @ 2003-10-01 10:49:07 by wolfgang]

Threaded RTS:
Don't start new worker threads earlier than necessary.
After this commit, a Haskell program that uses neither forkOS nor forkIO is
really single-threaded (rather than using two OS threads internally).

Some details:
Worker threads are now only created when a capability is released, and
only when
(there are no worker threads)
	&& (there are runnable Haskell threads ||
	    there are Haskell threads blocked on IO or threadDelay)
awaitEvent can now be called from bound thread scheduling loops
(so that we don't have to create a worker thread just to run awaitEvent)

1 files changed, 13 insertions, 0 deletions

diff --git a/ghc/rts/Task.c b/ghc/rts/Task.c
index 92b5c2594f..c720538995 100644
--- a/ghc/rts/Task.c
+++ b/ghc/rts/Task.c
@@ -134,6 +134,12 @@ stopTaskManager ()
   return;
 }
 
+void
+resetTaskManagerAfterFork ()
+{
+	barf("resetTaskManagerAfterFork not implemented for SMP");
+}
+
 #else
 /************ THREADS version *****************/
 
@@ -192,6 +198,13 @@ stopTaskManager ()
 {
 
 }
+
+void
+resetTaskManagerAfterFork ()
+{
+	rts_n_waiting_tasks = 0;
+	taskCount = 0;
+}
 #endif