Tree - rpms/ghc - src.fedoraproject.org

Blob History Raw

		bf23eb9	`--- a/rts/STM.c`
		bf23eb9	`+++ b/rts/STM.c`
		bf23eb9	`@@ -927,7 +927,7 @@ void stmPreGCHook (Capability *cap) {`
		bf23eb9	`static volatile StgInt64 max_commits = 0;`
		bf23eb9
		bf23eb9	`#if defined(THREADED_RTS)`
		bf23eb9	`-static volatile StgBool token_locked = FALSE;`
		bf23eb9	`+static volatile StgWord token_locked = FALSE;`
		bf23eb9
		bf23eb9	`static void getTokenBatch(Capability *cap) {`
		bf23eb9	`while (cas((void )&token_locked, FALSE, TRUE) == TRUE) { / nothing */ }`