X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FSchedule.c;h=8bd42414b52f25a8342913738063f6d32c5fd6ab;hp=afd8c28a08a65f6a7e6127cc2c22915c50ef7d64;hb=d759c7231dde979ed2824bd39b2fdff24357d355;hpb=fbb3eef5ee8f6f901ed6149b246c3bdbf8bd34fd

diff --git a/rts/Schedule.c b/rts/Schedule.c
index afd8c28..8bd4241 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -2577,7 +2577,12 @@ initScheduler(void)
 }
 
 void
-exitScheduler( rtsBool wait_foreign )
+exitScheduler(
+    rtsBool wait_foreign
+#if !defined(THREADED_RTS)
+                         __attribute__((unused))
+#endif
+)
                /* see Capability.c, shutdownCapability() */
 {
     Task *task = NULL;