Forget masking states for dead threads

Closes #191
This commit is contained in:
Michael Walker 2018-06-10 01:17:02 +01:00
parent e8a056aa3b
commit 8a16a25d62

View File

@ -732,6 +732,8 @@ updateMaskState tid (Fork tid2) = \masks -> case M.lookup tid masks of
Nothing -> masks
updateMaskState tid (SetMasking _ ms) = M.insert tid ms
updateMaskState tid (ResetMasking _ ms) = M.insert tid ms
updateMaskState tid (Throw True) = M.delete tid
updateMaskState _ (ThrowTo tid True) = M.delete tid
updateMaskState tid Stop = M.delete tid
updateMaskState _ _ = id