X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Frts%2FSparks.h;h=25a9d77d0775b7600f2ec0883e219aea410dfe5f;hb=387a411e5d6478249de6872c283f2df78ef83bf4;hp=37ca92ca3eb006b49fc34fb378f27a842e3ad8fc;hpb=dd4c28a9c706cce09ecc2c6f532969efa925532f;p=ghc-hetmet.git

diff --git a/ghc/rts/Sparks.h b/ghc/rts/Sparks.h
index 37ca92c..25a9d77 100644
--- a/ghc/rts/Sparks.h
+++ b/ghc/rts/Sparks.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Sparks.h,v 1.2 2000/03/31 03:09:36 hwloidl Exp $
+ * $Id: Sparks.h,v 1.4 2002/01/24 02:06:49 sof Exp $
  *
  * (c) The GHC Team, 2000
  *
@@ -25,10 +25,15 @@ void      markSparkQueue(void);
 
 #elif defined(PAR) || defined(SMP)
 
-void         initSparkPools( void );
+StgClosure  *findSpark( rtsBool );
+rtsBool      initSparkPools( void );
 void         markSparkQueue( void );
-StgClosure  *findSpark( void );
+#if defined(PAR)
+StgTSO      *activateSpark (rtsSpark spark) ;
 rtsBool      add_to_spark_queue( StgClosure *closure, StgSparkPool *pool );
 void         markSparkQueue( void );
+nat          spark_queue_len( StgSparkPool *pool );
+void         disposeSpark( StgClosure *spark );
+#endif
 
 #endif