X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FSparks.h;h=77d280bea8e1a855f190f804b867029a9c6d6886;hb=45252b35151fc55aa19fb6770df5ed8267639083;hp=5c6aff70504f66c0886e93cdae8c452d28b27af7;hpb=beb5737b7ee42c4e9373a505e7d957206d69a30e;p=ghc-hetmet.git diff --git a/ghc/rts/Sparks.h b/ghc/rts/Sparks.h index 5c6aff7..77d280b 100644 --- a/ghc/rts/Sparks.h +++ b/ghc/rts/Sparks.h @@ -1,8 +1,8 @@ /* ----------------------------------------------------------------------------- * - * (c) The GHC Team, 2000 + * (c) The GHC Team, 2000-2006 * - * Sparking support for GRAN, PAR and SMP versions of the RTS. + * Sparking support for GRAN, PAR and THREADED_RTS versions of the RTS. * * ---------------------------------------------------------------------------*/ @@ -13,7 +13,7 @@ StgInt newSpark (StgRegTable *reg, StgClosure *p); #endif -#if defined(PARALLEL_HASKELL) || defined(SMP) +#if defined(PARALLEL_HASKELL) || defined(THREADED_RTS) StgClosure * findSpark (Capability *cap); void initSparkPools (void); void markSparkQueue (evac_fn evac); @@ -56,7 +56,7 @@ void markSparkQueue(void); * PRIVATE below here * -------------------------------------------------------------------------- */ -#if defined(PARALLEL_HASKELL) || defined(SMP) +#if defined(PARALLEL_HASKELL) || defined(THREADED_RTS) INLINE_HEADER rtsBool emptySparkPool (StgSparkPool *pool)