Commit 72332617 authored by David Bühler's avatar David Bühler
Browse files

[Eva] Removes deprecated and invisible parameters.

parent a4fde52a
......@@ -493,23 +493,6 @@ let () = WarnPointerComparison.set_possible_values ["all"; "pointer"; "none"]
let () = add_correctness_dep WarnPointerComparison.parameter
let () = WarnPointerComparison.add_aliases ["-val-warn-undefined-pointer-comparison"]
let () = Parameter_customize.set_group alarms
let () = Parameter_customize.is_invisible ()
module WarnLeftShiftNegative =
True
(struct
let option_name = "-val-warn-left-shift-negative"
let help =
"Emit alarms when left-shifting negative integers"
end)
let () = add_correctness_dep WarnLeftShiftNegative.parameter
let () = WarnLeftShiftNegative.add_update_hook
(fun _ v ->
warning "This option is deprecated. Use %s instead"
Kernel.LeftShiftNegative.name;
Kernel.LeftShiftNegative.set v)
let () = Parameter_customize.set_group alarms
module WarnSignedConvertedDowncast =
False
......@@ -1192,28 +1175,6 @@ module ValShowProgress =
end)
let () = ValShowProgress.add_aliases ["-val-show-progress"]
let () = Parameter_customize.set_group messages
let () = Parameter_customize.is_invisible ()
module ValShowInitialState =
True
(struct
let option_name = "-val-show-initial-state"
(* deprecated in Silicon *)
let help = "[deprecated] Show initial state before analysis starts. \
This option has been replaced by \
-eva-msg-key=[-]initial-state and has no effect anymore."
end)
let () =
ValShowInitialState.add_set_hook
(fun _ new_ ->
if new_ then
Kernel.warning "@[Option -val-show-initial-state has no effect, \
it has been replaced by -eva-msg-key=initial-state@]"
else
Kernel.warning "@[Option -no-val-show-initial-state has no effect, \
it has been replaced by -eva-msg-key=-initial-state@]"
)
let () = Parameter_customize.set_group messages
module ValShowPerf =
False
......@@ -1258,34 +1219,6 @@ module PrintCallstacks =
end)
let () = PrintCallstacks.add_aliases ["-val-print-callstacks"]
let () = Parameter_customize.set_group messages
let () = Parameter_customize.is_invisible ()
module AlarmsWarnings =
True
(struct
let option_name = "-val-warn-on-alarms"
let help = "[DEPRECATED: use warning key alarm to manage alarms] \
If set (default), possible alarms are printed in \
the analysis log as warnings, otherwise as plain feedback"
end)
let () =
AlarmsWarnings.add_set_hook
(fun _ f ->
match get_warn_status wkey_alarm with
| Log.Wabort | Log.Werror | Log.Werror_once ->
warning "alarms already set to produce an error. \
Ignoring -val-warn-on-alarms"
| Log.Winactive | Log.Wactive | Log.Wfeedback ->
set_warn_status wkey_alarm (if f then Log.Wactive else Log.Wfeedback)
| Log.Wonce | Log.Wfeedback_once ->
(* Keep the 'once' status. Note that this will only happen if user
is mixing old and new style of warning management, thus it becomes
difficult to interpret the desired action.
*)
set_warn_status wkey_alarm
(if f then Log.Wonce else Log.Wfeedback_once))
let () = Parameter_customize.set_group messages
module ReportRedStatuses =
String
......@@ -1324,35 +1257,6 @@ module InterpreterMode =
end)
let () = InterpreterMode.add_aliases ["-val-interpreter-mode"]
let () = Parameter_customize.set_group interpreter
let () = Parameter_customize.is_invisible ()
module ObviouslyTerminatesFunctions =
Fundec_set
(struct
let option_name = "-obviously-terminates-function"
let arg_name = "f"
let help = "deprecated"
end)
let () = add_dep ObviouslyTerminatesFunctions.parameter
let () = ObviouslyTerminatesFunctions.add_update_hook
(fun _ _ ->
warning "Option -obviously-terminates-function is no longer supported. \
Ignoring.")
let () = Parameter_customize.set_group interpreter
let () = Parameter_customize.is_invisible ()
module ObviouslyTerminatesAll =
False
(struct
let option_name = "-obviously-terminates"
let help = "undocumented and deprecated"
end)
let () = add_dep ObviouslyTerminatesAll.parameter
let () = ObviouslyTerminatesAll.add_update_hook
(fun _ _ ->
warning "Option -obviously-terminates is no longer supported. \
Ignoring.")
let () = Parameter_customize.set_group interpreter
module StopAtNthAlarm =
Int(struct
......
......@@ -131,12 +131,10 @@ module SplitReturnFunction:
module SplitGlobalStrategy: State_builder.Ref with type data = Split_strategy.t
module ValShowProgress: Parameter_sig.Bool
module ValShowInitialState: Parameter_sig.Bool
module ValShowPerf: Parameter_sig.Bool
module ValPerfFlamegraphs: Parameter_sig.String
module ShowSlevel: Parameter_sig.Int
module PrintCallstacks: Parameter_sig.Bool
module AlarmsWarnings: Parameter_sig.Bool
module ReportRedStatuses: Parameter_sig.String
module NumerorsLogFile: Parameter_sig.String
......
Markdown is supported
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