From: simonmar <unknown>
Date: Fri, 18 Nov 2005 15:38:26 +0000 (+0000)
Subject: [project @ 2005-11-18 15:38:26 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~36
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=942818de37045d594591c482deefed6a13c35053;p=ghc-hetmet.git

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