bf23eb900b
- rts hang patch from Gustavo Luiz Duarte (#989593) - generate and ship library doc index for ghc bundled libraries - build with utf8 encoding (needed for verbose ghc output and makes better sense anyway) - change ghc-cabal to make library html docdirs unversioned
12 lines
381 B
Diff
12 lines
381 B
Diff
--- a/rts/STM.c
|
|
+++ b/rts/STM.c
|
|
@@ -927,7 +927,7 @@ void stmPreGCHook (Capability *cap) {
|
|
static volatile StgInt64 max_commits = 0;
|
|
|
|
#if defined(THREADED_RTS)
|
|
-static volatile StgBool token_locked = FALSE;
|
|
+static volatile StgWord token_locked = FALSE;
|
|
|
|
static void getTokenBatch(Capability *cap) {
|
|
while (cas((void *)&token_locked, FALSE, TRUE) == TRUE) { /* nothing */ }
|