summaryrefslogtreecommitdiff
path: root/rts/Task.c
diff options
context:
space:
mode:
authorSimon Marlow <simonmar@microsoft.com>2007-03-06 14:04:53 +0000
committerSimon Marlow <simonmar@microsoft.com>2007-03-06 14:04:53 +0000
commitd5b20065218f2650a60cafd179a318e98c080f05 (patch)
tree3e45606710d5da4928623b8b04d865c5db21d085 /rts/Task.c
parent760e1a82a93285e481ec042d772da7a67116f02a (diff)
downloadhaskell-d5b20065218f2650a60cafd179a318e98c080f05.tar.gz
workerTaskStop(): set task->cap = NULL
avoids an assertion failure in newBoundTask()
Diffstat (limited to 'rts/Task.c')
-rw-r--r--rts/Task.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/Task.c b/rts/Task.c
index 038e86137d..0ec60f7508 100644
--- a/rts/Task.c
+++ b/rts/Task.c
@@ -258,6 +258,7 @@ workerTaskStop (Task *task)
ASSERT(myTask() == task);
#endif
+ task->cap = NULL;
taskTimeStamp(task);
task->stopped = rtsTrue;
tasksRunning--;