Commit 7421ddf7 authored by David Bühler's avatar David Bühler Committed by Andre Maroneze
Browse files

[Eva] "-eva-domains name" is a shortcut for "-eva-domains-function name:main+".

parent 99a92890
......@@ -90,15 +90,18 @@ module Config = struct
dynamic_abstractions := dynamic :: !dynamic_abstractions
let configure () =
let add config name make =
let enabled = Value_parameters.Domains.mem name
and mode =
try Some (Value_parameters.DomainsFunction.find name)
with Not_found -> None
let add_main_mode mode =
let main, _ = Globals.entry_point () in
(main, Domain_mode.Mode.all) :: mode
in
if enabled || mode <> None
then add (make (), mode) config
else config
let add config name make =
let enabled = Value_parameters.Domains.mem name in
try
let mode = Value_parameters.DomainsFunction.find name in
let mode = if enabled then add_main_mode mode else mode in
add (make (), Some mode) config
with Not_found ->
if enabled then add (make (), None) config else config
in
let aux config (Flag domain as flag) =
add config domain.name (fun () -> flag)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment