diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-06-15 12:36:43 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-06-15 12:36:43 +0000 |
| commit | 612d2bc50d85bd4f24738e00e70b79cd5b714fe0 (patch) | |
| tree | 012fae39ade60761ab057e237568162872c6d4a4 /rts/STM.c | |
| parent | 49a8e5c021009430d373d6224b29004c7d18c408 (diff) | |
| download | haskell-612d2bc50d85bd4f24738e00e70b79cd5b714fe0.tar.gz | |
stmAddInvariantToCheck: add missing init of invariant->lock (#4057)
Diffstat (limited to 'rts/STM.c')
| -rw-r--r-- | rts/STM.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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 |