X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FSTM.c;h=d3283a92f04fbf9f89437aaa3443d6794c475232;hb=a5bd056033e0f81e4d8ca30aa7c26cde3a3a132b;hp=f94cf15d1264fad980c3954783f5e435f62daad6;hpb=6ff106616c1c98542df0a1763f0f9f655b2c8dd5;p=ghc-hetmet.git

diff --git a/ghc/rts/STM.c b/ghc/rts/STM.c
index f94cf15..d3283a9 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.