1 /* -----------------------------------------------------------------------------
4 * (c) The GHC Team 2002-2003
6 * Table of thread labels.
8 * ---------------------------------------------------------------------------*/
10 #include "PosixSource.h"
11 #include "ThreadLabels.h"
15 static HashTable * threadLabels = NULL;
18 initThreadLabelTable(void)
20 if (threadLabels == NULL) {
21 threadLabels = allocHashTable();
26 updateThreadLabel(StgWord key, void *data)
28 removeThreadLabel(key);
29 insertHashTable(threadLabels,key,data);
33 lookupThreadLabel(StgWord key)
35 return lookupHashTable(threadLabels,key);
39 removeThreadLabel(StgWord key)
42 if ((old = lookupHashTable(threadLabels,key))) {
43 removeHashTable(threadLabels,key,old);