From 12cfec943127f0c81e1ffa1ca5ce46e888e3027c Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 11 Mar 2010 09:36:32 +0000 Subject: [PATCH] fix bug in discardTasksExcept() that broke forkProcess --- rts/Task.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/rts/Task.c b/rts/Task.c index 2921e9e..e2f363b 100644 --- a/rts/Task.c +++ b/rts/Task.c @@ -280,11 +280,12 @@ boundTaskExiting (Task *task) void discardTasksExcept (Task *keep) { - Task *task; + Task *task, *next; // Wipe the task list, except the current Task. ACQUIRE_LOCK(&sched_mutex); - for (task = all_tasks; task != NULL; task=task->all_link) { + for (task = all_tasks; task != NULL; task=next) { + next = task->all_link; if (task != keep) { debugTrace(DEBUG_sched, "discarding task %ld", (long)TASK_ID(task)); freeTask(task); -- 1.7.10.4