From: Simon Marlow <marlowsd@gmail.com>
Date: Mon, 29 Mar 2010 13:22:53 +0000 (+0000)
Subject: tidy up the end of the all_tasks list after forking
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=1991d6e39c1902c8877397622132bb7d6c7c5ebc

tidy up the end of the all_tasks list after forking
---

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);
 }