From: Simon Marlow <simonmar@microsoft.com>
Date: Tue, 9 Oct 2007 12:24:09 +0000 (+0000)
Subject: also call initMutex on every task->lock, see #1391
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=8cc74db64356bd332a11c73788c4108e2e3c5acd

also call initMutex on every task->lock, see #1391
---

diff --git a/rts/Schedule.c b/rts/Schedule.c
index dee6a55..375520d 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -2202,6 +2202,9 @@ forkProcess(HsStablePtr *entry
 	ACQUIRE_LOCK(&sched_mutex);
 	for (task = all_tasks; task != NULL; task=task->all_link) {
 	    if (task != cap->running_task) {
+#if defined(THREADED_RTS)
+                initMutex(&task->lock); // see #1391
+#endif
 		discardTask(task);
 	    }
 	}