Reorganisation of the source tree

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

diff --git a/ghc/rts/ThreadLabels.c b/ghc/rts/ThreadLabels.c
deleted file mode 100644 (file)
index 9b9f172..0000000
--- a/ghc/rts/ThreadLabels.c
+++ /dev/null
@@ -1,50 +0,0 @@
-/* -----------------------------------------------------------------------------
- * ThreadLabels.c
- *
- * (c) The GHC Team 2002-2003
- *
- * Table of thread labels.
- *
- * ---------------------------------------------------------------------------*/
-
-#include "PosixSource.h"
-#include "ThreadLabels.h"
-#include "RtsUtils.h"
-
-#include <stdlib.h>
-
-#if defined(DEBUG)
-/* to the end */
-static HashTable * threadLabels = NULL;
-
-void
-initThreadLabelTable(void)
-{
-  if (threadLabels == NULL) {
-    threadLabels = allocHashTable();
-  }
-}
-
-void
-updateThreadLabel(StgWord key, void *data)
-{
-  removeThreadLabel(key);
-  insertHashTable(threadLabels,key,data);
-}
-
-void *
-lookupThreadLabel(StgWord key)
-{
-  return lookupHashTable(threadLabels,key);
-}
-
-void
-removeThreadLabel(StgWord key)
-{
-  void * old = NULL;
-  if ((old = lookupHashTable(threadLabels,key))) {
-    removeHashTable(threadLabels,key,old);
-    stgFree(old);
-  }  
-}
-#endif /* DEBUG */