fix a warning
authorSimon Marlow <simonmar@microsoft.com>
Thu, 8 Jun 2006 14:19:03 +0000 (14:19 +0000)
committerSimon Marlow <simonmar@microsoft.com>
Thu, 8 Jun 2006 14:19:03 +0000 (14:19 +0000)
rts/STM.c

index 96db3f6..fa6e9da 100644 (file)
--- a/rts/STM.c
+++ b/rts/STM.c
@@ -795,9 +795,9 @@ void stmPreGCHook() {
 
 static volatile StgInt64 max_commits = 0;
 
 
 static volatile StgInt64 max_commits = 0;
 
+#if defined(THREADED_RTS)
 static volatile StgBool token_locked = FALSE;
 
 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;
 static void getTokenBatch(Capability *cap) {
   while (cas((void *)&token_locked, FALSE, TRUE) == TRUE) { /* nothing */ }
   max_commits += TOKEN_BATCH_SIZE;