diff options
| author | Ian Lynagh <igloo@earth.li> | 2007-02-22 14:43:06 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2007-02-22 14:43:06 +0000 |
| commit | 3f9e522bb0e53ce262f68424870e2bbc9135b70a (patch) | |
| tree | 8207588549524b4d1a9ad65169ec1cc4fae1fea3 /rts/Task.c | |
| parent | 64496ad6ff9164151381d11d223294bde1859211 (diff) | |
| download | haskell-3f9e522bb0e53ce262f68424870e2bbc9135b70a.tar.gz | |
Free thread local storage on shutdown
Diffstat (limited to 'rts/Task.c')
| -rw-r--r-- | rts/Task.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/rts/Task.c b/rts/Task.c index 4301ab4b59..038e86137d 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(¤tTaskKey); +#endif RELEASE_LOCK(&sched_mutex); } |