[project @ 2005-04-24 20:19:30 by panne]

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

diff --git a/ghc/rts/Signals.c b/ghc/rts/Signals.c
index bd8c3aa..425d90a 100644 (file)
--- a/ghc/rts/Signals.c
+++ b/ghc/rts/Signals.c
@@ -353,6 +353,8 @@ startSignalHandler(int sig)  // called by the IO manager, see GHC.Conc
        createIOThread(RtsFlags.GcFlags.initialStkSize, 
                       (StgClosure *)deRefStablePtr((StgStablePtr)handlers[sig]))
        );
+#else
+    (void)sig;   /* keep gcc -Wall happy */
 #endif
 }