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

[Kernel] minor fixes after review

parent 23005457
No related branches found
No related tags found
No related merge requests found
...@@ -399,7 +399,7 @@ val deterministic: bool ...@@ -399,7 +399,7 @@ val deterministic: bool
val permissive: bool val permissive: bool
(** Downgrades some command-line errors to warnings, such as (** Downgrades some command-line errors to warnings, such as
unknown option names and invalid values for some options unknown option names and invalid values for some options
(e.g. inexistent function names). (e.g. non-existent function names).
@since Frama-C+dev *) @since Frama-C+dev *)
......
...@@ -1639,6 +1639,7 @@ let () = ...@@ -1639,6 +1639,7 @@ let () =
let checks = add_group "Checks" let checks = add_group "Checks"
let () = Parameter_customize.set_group checks let () = Parameter_customize.set_group checks
let () = Parameter_customize.do_not_projectify ()
let () = Parameter_customize.do_not_reset_on_copy () let () = Parameter_customize.do_not_reset_on_copy ()
module Check = module Check =
False(struct False(struct
...@@ -1649,6 +1650,7 @@ module Check = ...@@ -1649,6 +1650,7 @@ module Check =
end) end)
let () = Parameter_customize.set_group checks let () = Parameter_customize.set_group checks
let () = Parameter_customize.do_not_projectify ()
module Copy = module Copy =
False(struct False(struct
let option_name = "-copy" let option_name = "-copy"
...@@ -1658,6 +1660,7 @@ module Copy = ...@@ -1658,6 +1660,7 @@ module Copy =
end) end)
let () = Parameter_customize.set_group checks let () = Parameter_customize.set_group checks
let () = Parameter_customize.do_not_projectify ()
let () = Parameter_customize.set_negative_option_name "" let () = Parameter_customize.set_negative_option_name ""
module TypeCheck = module TypeCheck =
True(struct True(struct
...@@ -1710,6 +1713,7 @@ module Deterministic = ...@@ -1710,6 +1713,7 @@ module Deterministic =
end) end)
let () = Parameter_customize.set_group checks let () = Parameter_customize.set_group checks
let () = Parameter_customize.do_not_projectify ()
let () = Parameter_customize.set_negative_option_name "" let () = Parameter_customize.set_negative_option_name ""
let () = Parameter_customize.set_cmdline_stage Cmdline.Early let () = Parameter_customize.set_cmdline_stage Cmdline.Early
module Permissive = module Permissive =
......
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