Skip to content
Snippets Groups Projects
Commit 3165df45 authored by Andre Maroneze's avatar Andre Maroneze
Browse files

Merge branch 'fix/eva/prepare-builtins-once' into 'master'

[Eva] Only prepares cvalue builtins once. Fixes [is_builtin_overridden].

See merge request frama-c/frama-c!4567
parents 0b3d37de 281d013d
No related branches found
No related tags found
No related merge requests found
...@@ -204,14 +204,15 @@ let prepare_builtins () = ...@@ -204,14 +204,15 @@ let prepare_builtins () =
(* Overrides builtins attribution according to the -eva-builtin option. *) (* Overrides builtins attribution according to the -eva-builtin option. *)
Parameters.BuiltinsOverrides.iter Parameters.BuiltinsOverrides.iter
(fun (kf, name) -> (fun (kf, name) ->
prepare_builtin kf (Hashtbl.find table (Option.get name))) prepare_builtin kf (Hashtbl.find table (Option.get name)));
BuiltinsOverride.mark_as_computed ()
let find_builtin_override = Hashtbl.find_opt builtins_table let find_builtin_override = Hashtbl.find_opt builtins_table
let is_builtin_overridden name = let is_builtin_overridden kf =
if not (BuiltinsOverride.is_computed ()) if not (BuiltinsOverride.is_computed ())
then prepare_builtins (); then prepare_builtins ();
BuiltinsOverride.mem name BuiltinsOverride.mem kf
(* -------------------------------------------------------------------------- *) (* -------------------------------------------------------------------------- *)
(* --- Applying a builtin --- *) (* --- Applying a builtin --- *)
......
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