diff options
| author | Ian Lynagh <igloo@earth.li> | 2006-12-15 13:45:07 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2006-12-15 13:45:07 +0000 |
| commit | 221e74f6814f76430ff74b970a77393b0ae83eb5 (patch) | |
| tree | 26baf7bcf80d5513dc7201d9f21b2cd26c39475c /rts/ThreadLabels.c | |
| parent | 80578b7defea703ad24efa908534a13e2ebc880b (diff) | |
| download | haskell-221e74f6814f76430ff74b970a77393b0ae83eb5.tar.gz | |
Free various things we allocate
Diffstat (limited to 'rts/ThreadLabels.c')
| -rw-r--r-- | rts/ThreadLabels.c | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/rts/ThreadLabels.c b/rts/ThreadLabels.c index 1c89d84508..6919e1ae38 100644 --- a/rts/ThreadLabels.c +++ b/rts/ThreadLabels.c @@ -29,6 +29,15 @@ initThreadLabelTable(void) } void +freeThreadLabelTable(void) +{ + if (threadLabels != NULL) { + freeHashTable(threadLabels, NULL); + threadLabels = NULL; + } +} + +void updateThreadLabel(StgWord key, void *data) { removeThreadLabel(key); |