From 1991d6e39c1902c8877397622132bb7d6c7c5ebc Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Mon, 29 Mar 2010 13:22:53 +0000 Subject: tidy up the end of the all_tasks list after forking --- rts/Task.c | 1 + 1 file changed, 1 insertion(+) (limited to 'rts') diff --git a/rts/Task.c b/rts/Task.c index e2f363b321..9707251ca3 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); } -- cgit v1.2.1