Skip to content
Snippets Groups Projects
Commit c9b639aa authored by David Bühler's avatar David Bühler
Browse files

[Eva] Octagons: always infers modified zone in [assign] transfer function.

parent 81108f21
No related branches found
No related tags found
No related merge requests found
...@@ -1752,6 +1752,8 @@ module Domain = struct ...@@ -1752,6 +1752,8 @@ module Domain = struct
let variable = Variable.make_lval lvalue in let variable = Variable.make_lval lvalue in
(* Remove lvals refering to the variable *) (* Remove lvals refering to the variable *)
let lvalue_zone = (eval_deps variable).data in let lvalue_zone = (eval_deps variable).data in
let modified = Locations.Zone.join state.modified lvalue_zone in
let state = { state with modified } in
let vars = Deps.intersects_zone state.deps lvalue_zone in let vars = Deps.intersects_zone state.deps lvalue_zone in
let vars = List.filter (Fun.negate (Variable.equal variable)) vars in let vars = List.filter (Fun.negate (Variable.equal variable)) vars in
let state = List.fold_left State.remove state vars in let state = List.fold_left State.remove state vars in
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment