[project @ 2003-03-19 18:41:18 by sof]

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

diff --git a/ghc/rts/ThreadLabels.c b/ghc/rts/ThreadLabels.c
index 79a0a77..e7bbd13 100644 (file)
--- a/ghc/rts/ThreadLabels.c
+++ b/ghc/rts/ThreadLabels.c
@@ -1,16 +1,25 @@
+/* -----------------------------------------------------------------------------
+ * ThreadLabels.c
+ *
+ * (c) The GHC Team 2002-2003
+ *
+ * Table of thread labels.
+ *
+ * ---------------------------------------------------------------------------*/
 
 #include "PosixSource.h"
 #include "ThreadLabels.h"
 
 #include <stdlib.h>
 
-HashTable * threadLabels = NULL;
+static HashTable * threadLabels = NULL;
 
 void
 initThreadLabelTable(void)
 {
-  ASSERT(threadLabels == NULL);
-  threadLabels = allocHashTable();
+  if (threadLabels == NULL) {
+    threadLabels = allocHashTable();
+  }
 }
 
 void