X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FSparks.h;h=f9cce177a39a27bd17a30e13fc2a14bb8b1a27e0;hb=ca068e74900ba665a6f9bfda56ff4005b25653bf;hp=74f98095bfbd3f63115618ea59f3b08f0edcfde4;hpb=20fc2f0ced64a12d8e44956931b2ac341ed2186f;p=ghc-hetmet.git

diff --git a/ghc/rts/Sparks.h b/ghc/rts/Sparks.h
index 74f9809..f9cce17 100644
--- a/ghc/rts/Sparks.h
+++ b/ghc/rts/Sparks.h
@@ -1,5 +1,4 @@
 /* -----------------------------------------------------------------------------
- * $Id: Sparks.h,v 1.3 2001/03/22 03:51:10 hwloidl Exp $
  *
  * (c) The GHC Team, 2000
  *
@@ -25,14 +24,15 @@ void      markSparkQueue(void);
 
 #elif defined(PAR) || defined(SMP)
 
+StgClosure  *findSpark( rtsBool );
 rtsBool      initSparkPools( void );
 void         markSparkQueue( void );
-StgClosure  *findSpark( rtsBool );
+#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