diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2006-06-08 14:19:03 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2006-06-08 14:19:03 +0000 |
| commit | 0caf5ba4ed0d9585256559a5ee7b5c08275be7a0 (patch) | |
| tree | c87bb834e43d30ab413f6d04ad9ffec54488f90a /rts/STM.c | |
| parent | e9b4997c9c98e750aa675bca8e905b48fc9a1e68 (diff) | |
| download | haskell-0caf5ba4ed0d9585256559a5ee7b5c08275be7a0.tar.gz | |
fix a warning
Diffstat (limited to 'rts/STM.c')
| -rw-r--r-- | rts/STM.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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; |