Commit 0caf5ba4 authored by Simon Marlow's avatar Simon Marlow

fix a warning

parent e9b4997c
......@@ -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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment