[project @ 1999-03-22 11:26:03 by simonm]

[ghc-hetmet.git] / ghc / rts / Schedule.h

diff --git a/ghc/rts/Schedule.h b/ghc/rts/Schedule.h
index e55d038..6bdde63 100644 (file)
--- a/ghc/rts/Schedule.h
+++ b/ghc/rts/Schedule.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Schedule.h,v 1.3 1999/02/05 16:02:53 simonm Exp $
+ * $Id: Schedule.h,v 1.5 1999/03/16 13:20:17 simonm Exp $
  *
  * (c) The GHC Team 1998-1999
  *
@@ -19,18 +19,20 @@ void    initScheduler(void);
  */
 
 void    awaken_blocked_queue(StgTSO *tso);
-
 void    initThread(StgTSO *tso, nat stack_size);
-
 void    interruptStgRts(void);
+void    raiseAsync(StgTSO *tso, StgClosure *exception);
 
 extern  nat context_switch;
 
 extern  StgTSO *run_queue_hd, *run_queue_tl;
 extern  StgTSO *blocked_queue_hd, *blocked_queue_tl;
 
+#ifdef COMPILING_RTS_MAIN
+extern DLLIMPORT StgTSO *MainTSO; /* temporary hack */
+#else
 extern StgTSO *MainTSO; /* temporary hack */
-
+#endif
 #define END_TSO_QUEUE  ((StgTSO *)(void*)&END_TSO_QUEUE_closure)
 
 #define PUSH_ON_RUN_QUEUE(tso)                 \