diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2014-05-30 08:47:26 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2014-05-30 09:49:44 +0100 |
| commit | 96a95f0513de785a185fd8a46c7ed2643f698295 (patch) | |
| tree | cce1c8874d50cecace4d6d25951c067aee40edf9 /rts/PrimOps.cmm | |
| parent | 660c3f9d8534e3b249b27ab4024939d204366cc7 (diff) | |
| download | haskell-96a95f0513de785a185fd8a46c7ed2643f698295.tar.gz | |
Fix missing unlockClosure() call in tryReadMVar (#9148)
Diffstat (limited to 'rts/PrimOps.cmm')
| -rw-r--r-- | rts/PrimOps.cmm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index 84bcea5bff..4d7baca824 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -1786,6 +1786,7 @@ stg_tryReadMVarzh ( P_ mvar, /* :: MVar a */ ) LOCK_CLOSURE(mvar, info); if (StgMVar_value(mvar) == stg_END_TSO_QUEUE_closure) { + unlockClosure(mvar, info); return (0, stg_NO_FINALIZER_closure); } |