From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 15 Jun 2010 12:36:43 +0000 (+0000)
Subject: stmAddInvariantToCheck: add missing init of invariant->lock (#4057)
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=612d2bc50d85bd4f24738e00e70b79cd5b714fe0;ds=sidebyside

stmAddInvariantToCheck: add missing init of invariant->lock (#4057)
---

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