Skip to content
Snippets Groups Projects
Commit f4467870 authored by Michele Alberti's avatar Michele Alberti Committed by David Bühler
Browse files

[Eva] Make annotation zone contribute to data-tainted locations in state.

parent 78fc7db6
No related branches found
No related tags found
No related merge requests found
...@@ -259,7 +259,7 @@ module TransferTaint = struct ...@@ -259,7 +259,7 @@ module TransferTaint = struct
let state = filter_active_tainted_assumes stmt state in let state = filter_active_tainted_assumes stmt state in
let state = let state =
let annot_zone = zone_of_taint_annot stmt in let annot_zone = zone_of_taint_annot stmt in
{ state with locs_control = Zone.join state.locs_control annot_zone } { state with locs_data = Zone.join state.locs_data annot_zone }
in in
(* Add [stmt] as assume statement in [state] as soon as [exp] is tainted. *) (* Add [stmt] as assume statement in [state] as soon as [exp] is tainted. *)
let to_loc = loc_of_lval valuation in let to_loc = loc_of_lval valuation 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