make the smp way RTS-only, normal libraries now work with -smp

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

diff --git a/ghc/rts/Sparks.c b/ghc/rts/Sparks.c
index 12af296..5d9a470 100644 (file)
--- 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.