From 0caf5ba4ed0d9585256559a5ee7b5c08275be7a0 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 8 Jun 2006 14:19:03 +0000 Subject: [PATCH] fix a warning --- rts/STM.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rts/STM.c b/rts/STM.c index 96db3f6..fa6e9da 100644 --- a/rts/STM.c +++ b/rts/STM.c @@ -795,9 +795,9 @@ void stmPreGCHook() { static volatile StgInt64 max_commits = 0; +#if defined(THREADED_RTS) static volatile StgBool token_locked = FALSE; -#if defined(THREADED_RTS) static void getTokenBatch(Capability *cap) { while (cas((void *)&token_locked, FALSE, TRUE) == TRUE) { /* nothing */ } max_commits += TOKEN_BATCH_SIZE; -- 1.7.10.4