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

[scope] Uses Eva.Results instead of Db.Value.

parent 108c8881
No related branches found
No related tags found
No related merge requests found
...@@ -65,11 +65,11 @@ let compute_new_data old_zone l_zone l_dpds exact r_dpds = ...@@ -65,11 +65,11 @@ let compute_new_data old_zone l_zone l_dpds exact r_dpds =
else (false, old_zone) else (false, old_zone)
let get_lval_zones ~for_writing stmt lval = let get_lval_zones ~for_writing stmt lval =
let state = Db.Value.get_stmt_state stmt in let request = Eva.Results.before stmt in
let dpds, zone, exact = let address = Eva.Results.eval_address ~for_writing lval request in
!Db.Value.lval_to_zone_with_deps_state let zone = Eva.Results.as_zone address in
state ~deps:(Some Locations.Zone.bottom) ~for_writing lval let exact = Eva.Results.is_singleton address in
in let dpds = Eva.Results.address_deps lval request in
dpds, exact, zone dpds, exact, zone
(* the call result can be processed like a normal assignment *) (* the call result can be processed like a normal assignment *)
......
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