X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FTask.c;h=0ec60f750854cf25fbf2838a9a55ec1d8645834d;hp=4301ab4b59f7520cae055048eed9cd97f0d5a6ab;hb=006a18ea83799c0d4255071a2f8c08d3e9c7d84f;hpb=3f82e352ede25e6c3be4b3f5a32dcf313d9a0315

diff --git a/rts/Task.c b/rts/Task.c
index 4301ab4..0ec60f7 100644
--- a/rts/Task.c
+++ b/rts/Task.c
@@ -99,6 +99,9 @@ freeTaskManager (void)
     }
     all_tasks = NULL;
     task_free_list = NULL;
+#if defined(THREADED_RTS)
+    freeThreadLocalKey(&currentTaskKey);
+#endif
     RELEASE_LOCK(&sched_mutex);
 }
 
@@ -255,6 +258,7 @@ workerTaskStop (Task *task)
     ASSERT(myTask() == task);
 #endif
 
+    task->cap = NULL;
     taskTimeStamp(task);
     task->stopped = rtsTrue;
     tasksRunning--;