X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FSparks.c;h=5d9a4700dc8b6832604372342678757e9a561573;hb=beb5737b7ee42c4e9373a505e7d957206d69a30e;hp=12af2963809e0f414ac04ec41ce99719f7cc3a20;hpb=c5cd2343c5a86c8cb5349823a9699b30a269f3e8;p=ghc-hetmet.git

diff --git a/ghc/rts/Sparks.c b/ghc/rts/Sparks.c
index 12af296..5d9a470 100644
--- a/ghc/rts/Sparks.c
+++ b/ghc/rts/Sparks.c
@@ -220,8 +220,18 @@ newSpark (StgRegTable *reg, StgClosure *p)
     return 1;
 }
 
+#else
+
+StgInt
+newSpark (StgRegTable *reg, StgClosure *p)
+{
+    /* nothing */
+    return 1;
+}
+
 #endif /* PARALLEL_HASKELL || SMP */
 
+
 /* -----------------------------------------------------------------------------
  * 
  * GRAN & PARALLEL_HASKELL stuff beyond here.