X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FThreadLabels.c;h=6d2a5d641d05273d9469ee40fba2890c82f967e8;hb=cd47700887365ca2a6af17d03e731efce65cf2ac;hp=6919e1ae383efdb3e7feb26a8316dedaa8cae8d9;hpb=221e74f6814f76430ff74b970a77393b0ae83eb5;p=ghc-hetmet.git

diff --git a/rts/ThreadLabels.c b/rts/ThreadLabels.c
index 6919e1a..6d2a5d6 100644
--- a/rts/ThreadLabels.c
+++ b/rts/ThreadLabels.c
@@ -9,6 +9,7 @@
 
 #include "PosixSource.h"
 #include "Rts.h"
+
 #include "ThreadLabels.h"
 #include "RtsUtils.h"
 #include "Hash.h"
@@ -32,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);