Skip to content
Snippets Groups Projects
Commit be084e5b authored by David Bühler's avatar David Bühler Committed by Andre Maroneze
Browse files

[Eva] Engine: do not reset the analyzer when a domain parameter is changed.

parent 248be1c3
No related branches found
No related tags found
No related merge requests found
......@@ -165,17 +165,8 @@ let force_compute () =
let module Analyzer = (val snd !ref_analyzer) in
Analyzer.compute_from_entry_point ~lib_entry kf
let set_hook_on_parameter parameter =
let open Typed_parameter in
match parameter.accessor with
| Bool (accessor, _) -> accessor.add_set_hook (fun _ _ -> reset_analyzer ())
| Int (accessor, _) -> accessor.add_set_hook (fun _ _ -> reset_analyzer ())
| String (accessor, _) -> accessor.add_set_hook (fun _ _ -> reset_analyzer ())
(* Resets the Analyzer whenever an abstraction parameter or the current project
is changed. This maintains the analyzer consistent with the Eva parameters. *)
(* Resets the Analyzer when the current project is changed. *)
let () =
List.iter set_hook_on_parameter Value_parameters.parameters_abstractions;
Project.register_after_set_current_hook
~user_only:true (fun _ -> reset_analyzer ());
Project.register_after_global_load_hook reset_analyzer
......@@ -234,11 +234,6 @@ module DomainsFunction =
end)
let () = add_precision_dep DomainsFunction.parameter
(* Set of parameters defining the abstractions used in an Eva analysis. *)
let parameters_abstractions =
ref (Typed_parameter.Set.of_list
[Domains.parameter; DomainsFunction.parameter])
let () = Parameter_customize.set_group domains
module EqualityCall =
......@@ -1547,8 +1542,6 @@ let parameters_correctness =
Typed_parameter.Set.elements !parameters_correctness
let parameters_tuning =
Typed_parameter.Set.elements !parameters_tuning
let parameters_abstractions =
Typed_parameter.Set.elements !parameters_abstractions
......
......@@ -163,7 +163,6 @@ val configure_precision: unit -> unit
val parameters_correctness: Typed_parameter.t list
val parameters_tuning: Typed_parameter.t list
val parameters_abstractions: Typed_parameter.t list
(** Debug categories responsible for printing initial and final states of Value.
Enabled by default, but can be disabled via the command-line:
......
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