X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FTask.c;h=9707251ca309bdccef7fc7b6298173398666fb9a;hb=8ecf9d56f819de8b46d6103a6ebb42e48ccb4c8f;hp=e2f363b3210d83fc9e6220b7a2a09fd4e9a89947;hpb=12cfec943127f0c81e1ffa1ca5ce46e888e3027c;p=ghc-hetmet.git

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