X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FTimer.c;h=5be49a52edd9d8731af3d3feda58b1e0d012eb6a;hb=178c14217eddba162b9d90579580da6bf9e20fe9;hp=99a76c3b75ca37e22397eeca144dd08f2ee4bcb1;hpb=faa8d785c64ce394d9f83fb50e547037cd21c594;p=ghc-hetmet.git

diff --git a/ghc/rts/Timer.c b/ghc/rts/Timer.c
index 99a76c3..5be49a5 100644
--- a/ghc/rts/Timer.c
+++ b/ghc/rts/Timer.c
@@ -30,8 +30,10 @@
 /* ticks left before next pre-emptive context switch */
 static int ticks_to_ctxt_switch = 0;
 
+#if defined(RTS_SUPPORTS_THREADS)
 /* idle ticks left before we perform a GC */
 static int ticks_to_gc = 0;
+#endif
 
 /*
  * Function: handle_tick()