[project @ 2005-11-18 15:38:26 by simonmar]

fix threaded build

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 */