Skip to content
Snippets Groups Projects
Commit 5211cbf0 authored by Virgile Prevosto's avatar Virgile Prevosto
Browse files

Use proper option names for arguments of `Dynamic.Parameter.*.get`

It appears that the alias mechanism does not inform `Dynamic` of the aliases :disappointed:
parent 246282e2
No related branches found
No related tags found
No related merge requests found
...@@ -49,12 +49,12 @@ let is_analyzed_function vi = ...@@ -49,12 +49,12 @@ let is_analyzed_function vi =
(Mdr_params.Stubs.get())) && (Mdr_params.Stubs.get())) &&
not (List.mem vi.vname not (List.mem vi.vname
(String.split_on_char ',' (String.split_on_char ','
(Dynamic.Parameter.String.get "-val-use-spec" ()))) && (Dynamic.Parameter.String.get "-eva-use-spec" ()))) &&
not (List.mem vi.vname not (List.mem vi.vname
(List.map (List.map
(fun s -> List.hd (String.split_on_char ':' s)) (fun s -> List.hd (String.split_on_char ':' s))
(String.split_on_char ',' (String.split_on_char ','
(Dynamic.Parameter.String.get "-val-builtin" ())))) (Dynamic.Parameter.String.get "-eva-builtin" ()))))
let is_analyzed_info vi info = {info with is_analyzed=is_analyzed_function vi; } let is_analyzed_info vi info = {info with is_analyzed=is_analyzed_function vi; }
......
...@@ -93,7 +93,7 @@ let section_stubs env = ...@@ -93,7 +93,7 @@ let section_stubs env =
) )
in in
let stubbed_kf = List.filter Kernel_function.is_definition stubbed_kf in let stubbed_kf = List.filter Kernel_function.is_definition stubbed_kf in
let opt = Dynamic.Parameter.String.get "-val-use-spec" () in let opt = Dynamic.Parameter.String.get "-eva-use-spec" () in
(* NB: requires OCaml >= 4.04 *) (* NB: requires OCaml >= 4.04 *)
let l = String.split_on_char ',' opt in let l = String.split_on_char ',' opt in
let use_spec = let use_spec =
......
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