don't make -ddump-if-trace imply -no-recomp

[ghc-hetmet.git] / rts / ThreadLabels.c

diff --git a/rts/ThreadLabels.c b/rts/ThreadLabels.c
index 72cd5d3..6919e1a 100644 (file)
--- a/rts/ThreadLabels.c
+++ b/rts/ThreadLabels.c
@@ -14,6 +14,7 @@
 #include "Hash.h"
 
 #include <stdlib.h>
+#include <string.h>
 
 #if defined(DEBUG)
 /* to the end */
@@ -28,6 +29,15 @@ initThreadLabelTable(void)
 }
 
 void
+freeThreadLabelTable(void)
+{
+    if (threadLabels != NULL) {
+        freeHashTable(threadLabels, NULL);
+        threadLabels = NULL;
+    }
+}
+
+void
 updateThreadLabel(StgWord key, void *data)
 {
   removeThreadLabel(key);