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

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;