X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FThreadLabels.c;h=aa620f0b9e2d14954435e875c7cd787742295942;hb=6cf8982ac30be6836a0cdd8be5a6ac1a1a144213;hp=1c89d845088ee90204d050382edb1164a8648a45;hpb=7477a94d4d169ab88a5d47c028017fd85bd309b8;p=ghc-hetmet.git

diff --git a/rts/ThreadLabels.c b/rts/ThreadLabels.c
index 1c89d84..aa620f0 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"
@@ -29,6 +30,15 @@ initThreadLabelTable(void)
 }
 
 void
+freeThreadLabelTable(void)
+{
+    if (threadLabels != NULL) {
+        freeHashTable(threadLabels, NULL);
+        threadLabels = NULL;
+    }
+}
+
+void
 updateThreadLabel(StgWord key, void *data)
 {
   removeThreadLabel(key);