Fix bug that made all reads write their values on commit.

fryguybob · Feb 11, 2015 · 6e1df4e · 6e1df4e
1 parent d50ea1f
commit 6e1df4e
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/rts/STM.c b/rts/STM.c
@@ -1106,7 +1106,12 @@ StgBool stmCommitTransaction(Capability *cap, StgTRecHeader *trec) {
       FOR_EACH_ENTRY(trec, e, {
         StgTVar *s;
         s = e -> tvar;
+
+#if defined(STM_CG_LOCK)
+        if (e -> new_value != e -> expected_value) {
+#else
         if ((!config_use_read_phase) || (e -> new_value != e -> expected_value)) {
+#endif
           // Either the entry is an update or we're not using a read phase:
 	  // write the value back to the TVar, unlocking it if necessary.