From 1991d6e39c1902c8877397622132bb7d6c7c5ebc Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Mon, 29 Mar 2010 13:22:53 +0000 Subject: [PATCH] tidy up the end of the all_tasks list after forking --- rts/Task.c | 1 + 1 file changed, 1 insertion(+) diff --git a/rts/Task.c b/rts/Task.c index e2f363b..9707251 100644 --- a/rts/Task.c +++ b/rts/Task.c @@ -292,6 +292,7 @@ discardTasksExcept (Task *keep) } } all_tasks = keep; + keep->all_link = NULL; RELEASE_LOCK(&sched_mutex); } -- 1.7.10.4