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 (file)
--- a/rts/Task.c
+++ b/rts/Task.c
@@ -292,6 +292,7 @@ discardTasksExcept (Task *keep)
         }
     }
     all_tasks = keep;
         }
     }
     all_tasks = keep;

+    keep->all_link = NULL;

     RELEASE_LOCK(&sched_mutex);
 }
 
     RELEASE_LOCK(&sched_mutex);
 }