elimiante a couple of warnings

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

diff --git a/ghc/rts/Sparks.c b/ghc/rts/Sparks.c
index 98d7102..615d832 100644 (file)
--- a/ghc/rts/Sparks.c
+++ b/ghc/rts/Sparks.c
@@ -223,7 +223,7 @@ newSpark (StgRegTable *reg, StgClosure *p)
 #else
 
 StgInt
-newSpark (StgRegTable *reg, StgClosure *p)
+newSpark (StgRegTable *reg STG_UNUSED, StgClosure *p STG_UNUSED)
 {
     /* nothing */
     return 1;