Skip to content
Snippets Groups Projects
Commit 2b9db1a5 authored by Loïc Correnson's avatar Loïc Correnson
Browse files

Merge branch 'fix/wp/why3-opt-error-msg' into 'master'

[WP] fix exception raised by invalid option in -wp-why3-opt

See merge request frama-c/frama-c!2795
parents 40d63be2 4f02ced6
No related branches found
No related tags found
No related merge requests found
...@@ -46,9 +46,9 @@ let configure = ...@@ -46,9 +46,9 @@ let configure =
begin try begin try
Arg.parse_argv ~current:(ref 0) args Arg.parse_argv ~current:(ref 0) args
(Why3.Debug.Args.[desc_debug;desc_debug_all;desc_debug_list]) (Why3.Debug.Args.[desc_debug;desc_debug_all;desc_debug_list])
(fun _ -> raise (Arg.Help "Unknown why3 option")) (fun opt -> raise (Arg.Bad ("unknown option: " ^ opt)))
"Why3 options" "Why3 options"
with Arg.Bad s -> Wp_parameters.abort "%s" s with Arg.Bad s | Arg.Help s -> Wp_parameters.abort "%s" s
end; end;
ignore (Why3.Debug.Args.option_list ()); ignore (Why3.Debug.Args.option_list ());
Why3.Debug.Args.set_flags_selected (); Why3.Debug.Args.set_flags_selected ();
......
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