eliminate a warning

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

diff --git a/ghc/rts/ThreadLabels.c b/ghc/rts/ThreadLabels.c
index e7bbd13..9b9f172 100644 (file)
--- a/ghc/rts/ThreadLabels.c
+++ b/ghc/rts/ThreadLabels.c
@@ -9,9 +9,12 @@
 
 #include "PosixSource.h"
 #include "ThreadLabels.h"
+#include "RtsUtils.h"
 
 #include <stdlib.h>
 
+#if defined(DEBUG)
+/* to the end */
 static HashTable * threadLabels = NULL;
 
 void
@@ -41,6 +44,7 @@ removeThreadLabel(StgWord key)
   void * old = NULL;
   if ((old = lookupHashTable(threadLabels,key))) {
     removeHashTable(threadLabels,key,old);
-    free(old);
+    stgFree(old);
   }  
 }
+#endif /* DEBUG */