From: Simon Marlow <simonmar@microsoft.com>
Date: Thu, 8 Jun 2006 14:19:03 +0000 (+0000)
Subject: fix a warning
X-Git-Tag: Before_FC_branch_merge~406
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=0caf5ba4ed0d9585256559a5ee7b5c08275be7a0

fix a warning
---

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;