diff options
Diffstat (limited to 'ghc/rts')
| -rw-r--r-- | ghc/rts/STM.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/rts/STM.c b/ghc/rts/STM.c index f94cf15d12..d3283a92f0 100644 --- a/ghc/rts/STM.c +++ b/ghc/rts/STM.c @@ -999,7 +999,7 @@ StgBool stmCommitNestedTransaction(Capability *cap, StgTRecHeader *trec) { lock_stm(trec); et = trec -> enclosing_trec; - result = validate_and_acquire_ownership(trec, FALSE, TRUE); + result = validate_and_acquire_ownership(trec, (!use_read_phase), TRUE); if (result) { // We now know that all the updated locations hold their expected values. |