GaloisInc/macaw
1
1
Fork 0
mirror of https://github.com/GaloisInc/macaw.git synced 2024-12-29 00:59:09 +03:00
Code Issues Projects Releases Wiki Activity

minor improvement to jump bounds abstract interpretation

Browse Source
This commit is contained in:
Daniel Wagner 2018-05-30 15:27:59 -04:00
parent 024e393e8e
commit e3d7c26b8c
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
base/src/Data/Macaw/AbsDomain/JumpBounds.hs
View File

@ -170,6 +170,7 @@ assertPred (AssignedValue a) isTrue bnds =
EvalApp (AndApp l r) | isTrue -> (assertPred l isTrue >=> assertPred r isTrue) bnds EvalApp (AndApp l r) | isTrue -> (assertPred l isTrue >=> assertPred r isTrue) bnds
-- Given not (x || y), assert not x, then assert not y -- Given not (x || y), assert not x, then assert not y
EvalApp (OrApp l r) | not isTrue -> (assertPred l isTrue >=> assertPred r isTrue) bnds EvalApp (OrApp l r) | not isTrue -> (assertPred l isTrue >=> assertPred r isTrue) bnds
EvalApp (NotApp p) -> assertPred p (not isTrue) bnds
_ -> Right bnds _ -> Right bnds
assertPred _ _ bnds = Right bnds assertPred _ _ bnds = Right bnds