From da6d48859824bfcf5339a233412fd704bc75ad18 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 24 Aug 2010 11:26:06 +0000 Subject: [PATCH] free the entries in the thread label table on exit --- rts/ThreadLabels.c | 4 ++-- rts/ThreadLabels.h | 1 - 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/rts/ThreadLabels.c b/rts/ThreadLabels.c index aa620f0..6d2a5d6 100644 --- a/rts/ThreadLabels.c +++ b/rts/ThreadLabels.c @@ -33,12 +33,12 @@ void freeThreadLabelTable(void) { if (threadLabels != NULL) { - freeHashTable(threadLabels, NULL); + freeHashTable(threadLabels, stgFree); threadLabels = NULL; } } -void +static void updateThreadLabel(StgWord key, void *data) { removeThreadLabel(key); diff --git a/rts/ThreadLabels.h b/rts/ThreadLabels.h index 17d6b3f..254b91e 100644 --- a/rts/ThreadLabels.h +++ b/rts/ThreadLabels.h @@ -15,7 +15,6 @@ #if defined(DEBUG) void initThreadLabelTable (void); void freeThreadLabelTable (void); -void updateThreadLabel (StgWord key, void *data); void * lookupThreadLabel (StgWord key); void removeThreadLabel (StgWord key); void labelThread (StgPtr tso, char *label); -- 1.7.10.4