1 /* -----------------------------------------------------------------------------
4 * (c) The GHC Team 2002-2003
6 * Table of thread labels.
8 * ---------------------------------------------------------------------------*/
10 #include "PosixSource.h"
11 #include "ThreadLabels.h"
18 static HashTable * threadLabels = NULL;
21 initThreadLabelTable(void)
23 if (threadLabels == NULL) {
24 threadLabels = allocHashTable();
29 updateThreadLabel(StgWord key, void *data)
31 removeThreadLabel(key);
32 insertHashTable(threadLabels,key,data);
36 lookupThreadLabel(StgWord key)
38 return lookupHashTable(threadLabels,key);
42 removeThreadLabel(StgWord key)
45 if ((old = lookupHashTable(threadLabels,key))) {
46 removeHashTable(threadLabels,key,old);