Asynchronous exception support for SMP

This patch makes throwTo work with -threaded, and also refactors large
parts of the concurrency support in the RTS to clean things up.  We
have some new files:

  RaiseAsync.{c,h}	asynchronous exception support
  Threads.{c,h}         general threading-related utils

Some of the contents of these new files used to be in Schedule.c,
which is smaller and cleaner as a result of the split.

Asynchronous exception support in the presence of multiple running
Haskell threads is rather tricky.  In fact, to my annoyance there are
still one or two bugs to track down, but the majority of the tests run
now.

1 files changed, 9 insertions, 15 deletions

diff --git a/rts/ThreadLabels.h b/rts/ThreadLabels.h
index 97d3d0d241..eaed22d281 100644
--- a/rts/ThreadLabels.h
+++ b/rts/ThreadLabels.h
@@ -1,27 +1,21 @@
 /* -----------------------------------------------------------------------------
  * ThreadLabels.h
  *
- * (c) The GHC Team 2002-2003
+ * (c) The GHC Team 2002-2006
  *
  * Table of thread labels.
  *
  * ---------------------------------------------------------------------------*/
+
 #ifndef __THREADLABELS_H__
 #define __THREADLABELS_H__
 
-#include "Rts.h"
-#include "Hash.h"
-
-void
-initThreadLabelTable(void);
-
-void
-updateThreadLabel(StgWord key, void *data);
-
-void *
-lookupThreadLabel(StgWord key);
-
-void
-removeThreadLabel(StgWord key);
+#if defined(DEBUG)
+void    initThreadLabelTable (void);
+void    updateThreadLabel    (StgWord key, void *data);
+void *  lookupThreadLabel    (StgWord key);
+void    removeThreadLabel    (StgWord key);
+void    labelThread          (StgPtr tso, char *label);
+#endif
 
 #endif /* __THREADLABELS_H__ */