From 8cc74db64356bd332a11c73788c4108e2e3c5acd Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 9 Oct 2007 12:24:09 +0000 Subject: [PATCH] also call initMutex on every task->lock, see #1391 --- rts/Schedule.c | 3 +++ 1 file changed, 3 insertions(+) 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); } } -- 1.7.10.4