projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2003-07-28 16:05:30 by simonmar]
[ghc-hetmet.git]
/
ghc
/
rts
/
Sparks.h
diff --git
a/ghc/rts/Sparks.h
b/ghc/rts/Sparks.h
index
37ca92c
..
25a9d77
100644
(file)
--- 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
*
*
* (c) The GHC Team, 2000
*
@@
-25,10
+25,15
@@
void markSparkQueue(void);
#elif defined(PAR) || defined(SMP)
#elif defined(PAR) || defined(SMP)
-void initSparkPools( void );
+StgClosure *findSpark( rtsBool );
+rtsBool initSparkPools( void );
void markSparkQueue( 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 );
rtsBool add_to_spark_queue( StgClosure *closure, StgSparkPool *pool );
void markSparkQueue( void );
+nat spark_queue_len( StgSparkPool *pool );
+void disposeSpark( StgClosure *spark );
+#endif
#endif
#endif