[project @ 2005-12-16 15:15:08 by simonpj]

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

diff --git a/ghc/rts/Sparks.h b/ghc/rts/Sparks.h
index 1cc92eb..089b3f4 100644 (file)
--- a/ghc/rts/Sparks.h
+++ b/ghc/rts/Sparks.h
@@ -90,6 +90,12 @@ discardSparksCap (Capability *cap)
 { return discardSparks(&cap->r.rSparks); }
 
 
+#elif defined(THREADED_RTS) 
+
+INLINE_HEADER rtsBool
+emptySparkPoolCap (Capability *cap STG_UNUSED)
+{ return rtsTrue; }
+
 #endif
 
 #endif /* SPARKS_H */