1 /* -----------------------------------------------------------------------------
4 * (c) The GHC Team 2002-2003
6 * Table of thread labels.
8 * ---------------------------------------------------------------------------*/
10 #include "PosixSource.h"
11 #include "ThreadLabels.h"
16 static HashTable * threadLabels = NULL;
19 initThreadLabelTable(void)
21 if (threadLabels == NULL) {
22 threadLabels = allocHashTable();
27 updateThreadLabel(StgWord key, void *data)
29 removeThreadLabel(key);
30 insertHashTable(threadLabels,key,data);
34 lookupThreadLabel(StgWord key)
36 return lookupHashTable(threadLabels,key);
40 removeThreadLabel(StgWord key)
43 if ((old = lookupHashTable(threadLabels,key))) {
44 removeHashTable(threadLabels,key,old);