diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-03-29 13:22:53 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-03-29 13:22:53 +0000 |
| commit | 1991d6e39c1902c8877397622132bb7d6c7c5ebc (patch) | |
| tree | 08612564875e63a1ccfb629798ae077c8f428f6c /rts | |
| parent | e74936e39e845923c2e2a239524037d11dee2abd (diff) | |
| download | haskell-1991d6e39c1902c8877397622132bb7d6c7c5ebc.tar.gz | |
tidy up the end of the all_tasks list after forking
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/Task.c | 1 |
1 files changed, 1 insertions, 0 deletions
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); } |