X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FSTM.c;h=3de42e20906f664534709450796712f16dc129f4;hb=209e093599d0d4db5487d124895d817c55b7c052;hp=f98d201b07696a37d8e72e1ca27c206634db1804;hpb=5d52d9b64c21dcf77849866584744722f8121389;p=ghc-hetmet.git

diff --git a/rts/STM.c b/rts/STM.c
index f98d201..3de42e2 100644
--- a/rts/STM.c
+++ b/rts/STM.c
@@ -1179,6 +1179,7 @@ void stmAddInvariantToCheck(Capability *cap,
   SET_HDR (invariant, &stg_ATOMIC_INVARIANT_info, CCS_SYSTEM);
   invariant -> code = code;
   invariant -> last_execution = NO_TREC;
+  invariant -> lock = 0;
 
   // 2. Allocate an StgInvariantCheckQueue entry, link it to the current trec