X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FThreadLabels.c;h=9b9f1723ffdc0f6a8055279843e8eab6aaeeb4d1;hb=71c492fc420ee9d2b6075e6a1bb7b8c2cf5f6b6d;hp=2856ae7bfd5f5a12c61ca23993ab7919ffdc0ae9;hpb=2548429c5147b40adc0f14a78d24659462358d41;p=ghc-hetmet.git

diff --git a/ghc/rts/ThreadLabels.c b/ghc/rts/ThreadLabels.c
index 2856ae7..9b9f172 100644
--- a/ghc/rts/ThreadLabels.c
+++ b/ghc/rts/ThreadLabels.c
@@ -13,6 +13,8 @@
 
 #include <stdlib.h>
 
+#if defined(DEBUG)
+/* to the end */
 static HashTable * threadLabels = NULL;
 
 void
@@ -45,3 +47,4 @@ removeThreadLabel(StgWord key)
     stgFree(old);
   }  
 }
+#endif /* DEBUG */