Skip to content
Snippets Groups Projects
Commit b53894ef authored by David Bühler's avatar David Bühler
Browse files

[Eva] Deprecates the legacy aliases of Eva parameters. 

These aliases will not be printed in the help message of Eva, and will emit
a warning when used.
parent c69097ff
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/plugins/value/value_parameters.ml
+ 58
− 49
View file @ b53894ef
...@@ -64,8 +64,8 @@ include Plugin.Register ...@@ -64,8 +64,8 @@ include Plugin.Register
"automatically computes variation domains for the variables of the program" "automatically computes variation domains for the variables of the program"
end) end)
let () = Help.add_aliases [ "-value-h"; "-val-h" ] let () = Help.add_aliases ~visible:false [ "-value-h"; "-val-h" ]
let () = add_plugin_output_aliases [ "value" ] let () = add_plugin_output_aliases ~visible:false ~deprecated:true [ "value" ]
(* Debug categories. *) (* Debug categories. *)
let dkey_initial_state = register_category "initial-state" let dkey_initial_state = register_category "initial-state"
...@@ -109,7 +109,7 @@ module ForceValues = ...@@ -109,7 +109,7 @@ module ForceValues =
let help = "Compute values" let help = "Compute values"
let output_by_default = true let output_by_default = true
end) end)
let () = ForceValues.add_aliases ["-val"] let () = ForceValues.add_aliases ~deprecated:true ["-val"]
let domains = add_group "Abstract Domains" let domains = add_group "Abstract Domains"
let precision_tuning = add_group "Precision vs. time" let precision_tuning = add_group "Precision vs. time"
...@@ -373,7 +373,6 @@ module NoResultsFunctions = ...@@ -373,7 +373,6 @@ module NoResultsFunctions =
function f" function f"
end) end)
let () = add_dep NoResultsFunctions.parameter let () = add_dep NoResultsFunctions.parameter
let () = NoResultsFunctions.add_aliases ["-no-results-function"]
let () = Parameter_customize.set_group performance let () = Parameter_customize.set_group performance
module ResultsAll = module ResultsAll =
...@@ -383,7 +382,6 @@ module ResultsAll = ...@@ -383,7 +382,6 @@ module ResultsAll =
let help = "Record values for each of the statements of the program." let help = "Record values for each of the statements of the program."
end) end)
let () = add_dep ResultsAll.parameter let () = add_dep ResultsAll.parameter
let () = ResultsAll.add_aliases ["-results"]
let () = Parameter_customize.set_group performance let () = Parameter_customize.set_group performance
module JoinResults = module JoinResults =
...@@ -393,7 +391,6 @@ module JoinResults = ...@@ -393,7 +391,6 @@ module JoinResults =
let help = "Precompute consolidated states once Eva is computed" let help = "Precompute consolidated states once Eva is computed"
let default = true let default = true
end) end)
let () = JoinResults.add_aliases ["-val-join-results"]
let () = Parameter_customize.set_group performance let () = Parameter_customize.set_group performance
module EqualityStorage = module EqualityStorage =
...@@ -463,7 +460,6 @@ module AllRoundingModesConstants = ...@@ -463,7 +460,6 @@ module AllRoundingModesConstants =
or being converted to higher precision" or being converted to higher precision"
end) end)
let () = add_correctness_dep AllRoundingModesConstants.parameter let () = add_correctness_dep AllRoundingModesConstants.parameter
let () = AllRoundingModesConstants.add_aliases ["-all-rounding-modes-constants"]
let () = Parameter_customize.set_group alarms let () = Parameter_customize.set_group alarms
module UndefinedPointerComparisonPropagateAll = module UndefinedPointerComparisonPropagateAll =
...@@ -475,9 +471,6 @@ module UndefinedPointerComparisonPropagateAll = ...@@ -475,9 +471,6 @@ module UndefinedPointerComparisonPropagateAll =
the emission of an alarm" the emission of an alarm"
end) end)
let () = add_correctness_dep UndefinedPointerComparisonPropagateAll.parameter let () = add_correctness_dep UndefinedPointerComparisonPropagateAll.parameter
let () =
UndefinedPointerComparisonPropagateAll.add_aliases
["-undefined-pointer-comparison-propagate-all"]
let () = Parameter_customize.set_group alarms let () = Parameter_customize.set_group alarms
module WarnPointerComparison = module WarnPointerComparison =
...@@ -491,7 +484,6 @@ module WarnPointerComparison = ...@@ -491,7 +484,6 @@ module WarnPointerComparison =
end) end)
let () = WarnPointerComparison.set_possible_values ["all"; "pointer"; "none"] let () = WarnPointerComparison.set_possible_values ["all"; "pointer"; "none"]
let () = add_correctness_dep WarnPointerComparison.parameter let () = add_correctness_dep WarnPointerComparison.parameter
let () = WarnPointerComparison.add_aliases ["-val-warn-undefined-pointer-comparison"]
let () = Parameter_customize.set_group alarms let () = Parameter_customize.set_group alarms
module WarnSignedConvertedDowncast = module WarnSignedConvertedDowncast =
...@@ -504,9 +496,6 @@ module WarnSignedConvertedDowncast = ...@@ -504,9 +496,6 @@ module WarnSignedConvertedDowncast =
destination range." destination range."
end) end)
let () = add_correctness_dep WarnSignedConvertedDowncast.parameter let () = add_correctness_dep WarnSignedConvertedDowncast.parameter
let () =
WarnSignedConvertedDowncast.add_aliases
["-val-warn-signed-converted-downcast"]
let () = Parameter_customize.set_group alarms let () = Parameter_customize.set_group alarms
...@@ -520,7 +509,6 @@ module WarnPointerSubstraction = ...@@ -520,7 +509,6 @@ module WarnPointerSubstraction =
offsets. When unset, do not warn but generate imprecise offsets." offsets. When unset, do not warn but generate imprecise offsets."
end) end)
let () = add_correctness_dep WarnPointerSubstraction.parameter let () = add_correctness_dep WarnPointerSubstraction.parameter
let () = WarnPointerSubstraction.add_aliases ["-val-warn-pointer-subtraction"]
let () = Parameter_customize.set_group alarms let () = Parameter_customize.set_group alarms
module IgnoreRecursiveCalls = module IgnoreRecursiveCalls =
...@@ -531,7 +519,6 @@ module IgnoreRecursiveCalls = ...@@ -531,7 +519,6 @@ module IgnoreRecursiveCalls =
"Pretend function calls that would be recursive do not happen. Causes unsoundness" "Pretend function calls that would be recursive do not happen. Causes unsoundness"
end) end)
let () = add_correctness_dep IgnoreRecursiveCalls.parameter let () = add_correctness_dep IgnoreRecursiveCalls.parameter
let () = IgnoreRecursiveCalls.add_aliases ["-val-ignore-recursive-calls"]
let () = Parameter_customize.set_group alarms let () = Parameter_customize.set_group alarms
...@@ -546,7 +533,6 @@ module WarnCopyIndeterminate = ...@@ -546,7 +533,6 @@ module WarnCopyIndeterminate =
functions by '=-@all'." functions by '=-@all'."
end) end)
let () = add_correctness_dep WarnCopyIndeterminate.parameter let () = add_correctness_dep WarnCopyIndeterminate.parameter
let () = WarnCopyIndeterminate.add_aliases ["-val-warn-copy-indeterminate"]
let () = WarnCopyIndeterminate.Category.(set_default (all ())) let () = WarnCopyIndeterminate.Category.(set_default (all ()))
let () = Parameter_customize.set_group alarms let () = Parameter_customize.set_group alarms
...@@ -558,7 +544,6 @@ module ReduceOnLogicAlarms = ...@@ -558,7 +544,6 @@ module ReduceOnLogicAlarms =
emitted while the predicate is evaluated (experimental)" emitted while the predicate is evaluated (experimental)"
end) end)
let () = add_correctness_dep ReduceOnLogicAlarms.parameter let () = add_correctness_dep ReduceOnLogicAlarms.parameter
let () = ReduceOnLogicAlarms.add_aliases ["-val-reduce-on-logic-alarms"]
let () = Parameter_customize.set_group alarms let () = Parameter_customize.set_group alarms
module InitializedLocals = module InitializedLocals =
...@@ -570,7 +555,6 @@ module InitializedLocals = ...@@ -570,7 +555,6 @@ module InitializedLocals =
initialization." initialization."
end) end)
let () = add_correctness_dep InitializedLocals.parameter let () = add_correctness_dep InitializedLocals.parameter
let () = InitializedLocals.add_aliases ["-val-initialized-locals"]
(* ------------------------------------------------------------------------- *) (* ------------------------------------------------------------------------- *)
(* --- Initial context --- *) (* --- Initial context --- *)
...@@ -586,7 +570,6 @@ module AutomaticContextMaxDepth = ...@@ -586,7 +570,6 @@ module AutomaticContextMaxDepth =
let help = "Use <n> as the depth of the default context for Eva. (defaults to 2)" let help = "Use <n> as the depth of the default context for Eva. (defaults to 2)"
end) end)
let () = add_correctness_dep AutomaticContextMaxDepth.parameter let () = add_correctness_dep AutomaticContextMaxDepth.parameter
let () = AutomaticContextMaxDepth.add_aliases ["-context-depth"]
let () = Parameter_customize.set_group initial_context let () = Parameter_customize.set_group initial_context
module AutomaticContextMaxWidth = module AutomaticContextMaxWidth =
...@@ -599,7 +582,6 @@ module AutomaticContextMaxWidth = ...@@ -599,7 +582,6 @@ module AutomaticContextMaxWidth =
end) end)
let () = AutomaticContextMaxWidth.set_range ~min:1 ~max:max_int let () = AutomaticContextMaxWidth.set_range ~min:1 ~max:max_int
let () = add_correctness_dep AutomaticContextMaxWidth.parameter let () = add_correctness_dep AutomaticContextMaxWidth.parameter
let () = AutomaticContextMaxWidth.add_aliases ["-context-width"]
let () = Parameter_customize.set_group initial_context let () = Parameter_customize.set_group initial_context
module AllocatedContextValid = module AllocatedContextValid =
...@@ -610,7 +592,6 @@ module AllocatedContextValid = ...@@ -610,7 +592,6 @@ module AllocatedContextValid =
and then use NULL (defaults to false)" and then use NULL (defaults to false)"
end) end)
let () = add_correctness_dep AllocatedContextValid.parameter let () = add_correctness_dep AllocatedContextValid.parameter
let () = AllocatedContextValid.add_aliases ["-context-valid-pointers"]
let () = Parameter_customize.set_group initial_context let () = Parameter_customize.set_group initial_context
module InitializationPaddingGlobals = module InitializationPaddingGlobals =
...@@ -626,7 +607,6 @@ module InitializationPaddingGlobals = ...@@ -626,7 +607,6 @@ module InitializationPaddingGlobals =
end) end)
let () = InitializationPaddingGlobals.set_possible_values ["yes"; "no"; "maybe"] let () = InitializationPaddingGlobals.set_possible_values ["yes"; "no"; "maybe"]
let () = add_correctness_dep InitializationPaddingGlobals.parameter let () = add_correctness_dep InitializationPaddingGlobals.parameter
let () = InitializationPaddingGlobals.add_aliases ["-val-initialization-padding-globals"]
(* ------------------------------------------------------------------------- *) (* ------------------------------------------------------------------------- *)
(* --- Tuning --- *) (* --- Tuning --- *)
...@@ -674,7 +654,6 @@ module WideningDelay = ...@@ -674,7 +654,6 @@ module WideningDelay =
"Do not widen before the <n>-th iteration (defaults to 3)" "Do not widen before the <n>-th iteration (defaults to 3)"
end) end)
let () = WideningDelay.set_range ~min:1 ~max:max_int let () = WideningDelay.set_range ~min:1 ~max:max_int
let () = WideningDelay.add_aliases ["-wlevel"]
let () = add_precision_dep WideningDelay.parameter let () = add_precision_dep WideningDelay.parameter
let () = Parameter_customize.set_group precision_tuning let () = Parameter_customize.set_group precision_tuning
...@@ -704,7 +683,6 @@ module SemanticUnrollingLevel = ...@@ -704,7 +683,6 @@ module SemanticUnrollingLevel =
(defaults to 0)" (defaults to 0)"
end) end)
let () = add_precision_dep SemanticUnrollingLevel.parameter let () = add_precision_dep SemanticUnrollingLevel.parameter
let () = SemanticUnrollingLevel.add_aliases ["-slevel"]
let () = Parameter_customize.set_group precision_tuning let () = Parameter_customize.set_group precision_tuning
let () = Parameter_customize.argument_may_be_fundecl () let () = Parameter_customize.argument_may_be_fundecl ()
...@@ -729,7 +707,6 @@ module SlevelFunction = ...@@ -729,7 +707,6 @@ module SlevelFunction =
let default = Kernel_function.Map.empty let default = Kernel_function.Map.empty
end) end)
let () = add_precision_dep SlevelFunction.parameter let () = add_precision_dep SlevelFunction.parameter
let () = SlevelFunction.add_aliases ["-slevel-function"]
let () = Parameter_customize.set_group precision_tuning let () = Parameter_customize.set_group precision_tuning
module SlevelMergeAfterLoop = module SlevelMergeAfterLoop =
...@@ -742,7 +719,6 @@ module SlevelMergeAfterLoop = ...@@ -742,7 +719,6 @@ module SlevelMergeAfterLoop =
of a loop are merged before entering the next excution." of a loop are merged before entering the next excution."
end) end)
let () = add_precision_dep SlevelMergeAfterLoop.parameter let () = add_precision_dep SlevelMergeAfterLoop.parameter
let () = SlevelMergeAfterLoop.add_aliases ["-val-slevel-merge-after-loop"]
let () = Parameter_customize.set_group precision_tuning let () = Parameter_customize.set_group precision_tuning
module MinLoopUnroll = module MinLoopUnroll =
...@@ -848,7 +824,6 @@ module SplitReturnFunction = ...@@ -848,7 +824,6 @@ module SplitReturnFunction =
let default = Kernel_function.Map.empty let default = Kernel_function.Map.empty
end) end)
let () = add_precision_dep SplitReturnFunction.parameter let () = add_precision_dep SplitReturnFunction.parameter
let () = SplitReturnFunction.add_aliases ["-val-split-return-function"]
let () = Parameter_customize.set_group precision_tuning let () = Parameter_customize.set_group precision_tuning
module SplitReturn = module SplitReturn =
...@@ -876,7 +851,6 @@ let () = ...@@ -876,7 +851,6 @@ let () =
abort "@[@[incorrect argument for option %s@ (%s).@]" abort "@[@[incorrect argument for option %s@ (%s).@]"
SplitReturn.name s)) SplitReturn.name s))
let () = add_precision_dep SplitReturn.parameter let () = add_precision_dep SplitReturn.parameter
let () = SplitReturn.add_aliases ["-val-split-return"]
(* --- Misc --- *) (* --- Misc --- *)
...@@ -893,7 +867,6 @@ module ILevel = ...@@ -893,7 +867,6 @@ module ILevel =
(defaults to 8, must be between 4 and 128)" (defaults to 8, must be between 4 and 128)"
end) end)
let () = add_precision_dep ILevel.parameter let () = add_precision_dep ILevel.parameter
let () = ILevel.add_aliases ["-val-ilevel"]
let () = ILevel.add_update_hook (fun _ i -> Int_set.set_small_cardinal i) let () = ILevel.add_update_hook (fun _ i -> Int_set.set_small_cardinal i)
let () = ILevel.set_range 4 256 let () = ILevel.set_range 4 256
...@@ -930,7 +903,6 @@ module BuiltinsOverrides = ...@@ -930,7 +903,6 @@ module BuiltinsOverrides =
let default = Kernel_function.Map.empty let default = Kernel_function.Map.empty
end) end)
let () = add_precision_dep BuiltinsOverrides.parameter let () = add_precision_dep BuiltinsOverrides.parameter
let () = BuiltinsOverrides.add_aliases ["-val-builtin"]
(* Exported in Eva.mli. *) (* Exported in Eva.mli. *)
let use_builtin key name = let use_builtin key name =
...@@ -947,7 +919,6 @@ module BuiltinsAuto = ...@@ -947,7 +919,6 @@ module BuiltinsAuto =
known C functions" known C functions"
end) end)
let () = add_correctness_dep BuiltinsAuto.parameter let () = add_correctness_dep BuiltinsAuto.parameter
let () = BuiltinsAuto.add_aliases ["-val-builtins-auto"]
let () = Parameter_customize.set_group precision_tuning let () = Parameter_customize.set_group precision_tuning
let () = Parameter_customize.set_negative_option_name "" let () = Parameter_customize.set_negative_option_name ""
...@@ -958,7 +929,6 @@ module BuiltinsList = ...@@ -958,7 +929,6 @@ module BuiltinsList =
let help = "List existing builtins, and which functions they \ let help = "List existing builtins, and which functions they \
are automatically associated to (if any)" are automatically associated to (if any)"
end) end)
let () = BuiltinsList.add_aliases ["-val-builtins-list"]
let () = Parameter_customize.set_group precision_tuning let () = Parameter_customize.set_group precision_tuning
module LinearLevel = module LinearLevel =
...@@ -972,7 +942,6 @@ module LinearLevel = ...@@ -972,7 +942,6 @@ module LinearLevel =
Defaults to 0." Defaults to 0."
end) end)
let () = add_precision_dep LinearLevel.parameter let () = add_precision_dep LinearLevel.parameter
let () = LinearLevel.add_aliases ["-val-subdivide-non-linear"]
let () = Parameter_customize.set_group precision_tuning let () = Parameter_customize.set_group precision_tuning
module LinearLevelFunction = module LinearLevelFunction =
...@@ -1009,7 +978,6 @@ module UsePrototype = ...@@ -1009,7 +978,6 @@ module UsePrototype =
their definitions" their definitions"
end) end)
let () = add_precision_dep UsePrototype.parameter let () = add_precision_dep UsePrototype.parameter
let () = UsePrototype.add_aliases ["-val-use-spec"]
let () = Parameter_customize.set_group precision_tuning let () = Parameter_customize.set_group precision_tuning
module SkipLibcSpecs = module SkipLibcSpecs =
...@@ -1020,7 +988,6 @@ module SkipLibcSpecs = ...@@ -1020,7 +988,6 @@ module SkipLibcSpecs =
standard library of Frama-C, when their bodies are evaluated" standard library of Frama-C, when their bodies are evaluated"
end) end)
let () = add_precision_dep SkipLibcSpecs.parameter let () = add_precision_dep SkipLibcSpecs.parameter
let () = SkipLibcSpecs.add_aliases ["-val-skip-stdlib-specs"]
let () = Parameter_customize.set_group precision_tuning let () = Parameter_customize.set_group precision_tuning
...@@ -1032,7 +999,6 @@ module RmAssert = ...@@ -1032,7 +999,6 @@ module RmAssert =
so that the user needs to inspect fewer of them" so that the user needs to inspect fewer of them"
end) end)
let () = add_precision_dep RmAssert.parameter let () = add_precision_dep RmAssert.parameter
let () = RmAssert.add_aliases ["-remove-redundant-alarms"]
let () = Parameter_customize.set_group precision_tuning let () = Parameter_customize.set_group precision_tuning
module MemExecAll = module MemExecAll =
...@@ -1044,7 +1010,6 @@ module MemExecAll = ...@@ -1044,7 +1010,6 @@ module MemExecAll =
Callstacks for which the analysis has not been recomputed \ Callstacks for which the analysis has not been recomputed \
are incorrectly shown as dead in the GUI." are incorrectly shown as dead in the GUI."
end) end)
let () = MemExecAll.add_aliases ["-memexec-all"]
let () = let () =
MemExecAll.add_set_hook MemExecAll.add_set_hook
(fun _bold bnew -> (fun _bold bnew ->
...@@ -1067,7 +1032,6 @@ module ArrayPrecisionLevel = ...@@ -1067,7 +1032,6 @@ module ArrayPrecisionLevel =
less than n values. (defaults to 200)" less than n values. (defaults to 200)"
end) end)
let () = add_precision_dep ArrayPrecisionLevel.parameter let () = add_precision_dep ArrayPrecisionLevel.parameter
let () = ArrayPrecisionLevel.add_aliases ["-plevel"]
let () = ArrayPrecisionLevel.add_update_hook let () = ArrayPrecisionLevel.add_update_hook
(fun _ v -> Offsetmap.set_plevel v) (fun _ v -> Offsetmap.set_plevel v)
...@@ -1173,7 +1137,6 @@ module ValShowProgress = ...@@ -1173,7 +1137,6 @@ module ValShowProgress =
let option_name = "-eva-show-progress" let option_name = "-eva-show-progress"
let help = "Show progression messages during analysis" let help = "Show progression messages during analysis"
end) end)
let () = ValShowProgress.add_aliases ["-val-show-progress"]
let () = Parameter_customize.set_group messages let () = Parameter_customize.set_group messages
module ValShowPerf = module ValShowPerf =
...@@ -1182,7 +1145,6 @@ module ValShowPerf = ...@@ -1182,7 +1145,6 @@ module ValShowPerf =
let option_name = "-eva-show-perf" let option_name = "-eva-show-perf"
let help = "Compute and show a summary of the time spent analyzing function calls" let help = "Compute and show a summary of the time spent analyzing function calls"
end) end)
let () = ValShowPerf.add_aliases ["-val-show-perf"]
let () = Parameter_customize.set_group messages let () = Parameter_customize.set_group messages
module ValPerfFlamegraphs = module ValPerfFlamegraphs =
...@@ -1195,7 +1157,6 @@ module ValPerfFlamegraphs = ...@@ -1195,7 +1157,6 @@ module ValPerfFlamegraphs =
let arg_name = "file" let arg_name = "file"
let default = "" let default = ""
end) end)
let () = ValPerfFlamegraphs.add_aliases ["-val-flamegraph"]
let () = Parameter_customize.set_group messages let () = Parameter_customize.set_group messages
...@@ -1207,7 +1168,6 @@ module ShowSlevel = ...@@ -1207,7 +1168,6 @@ module ShowSlevel =
let arg_name = "n" let arg_name = "n"
let help = "Period for showing consumption of the alloted slevel during analysis" let help = "Period for showing consumption of the alloted slevel during analysis"
end) end)
let () = ShowSlevel.add_aliases ["-val-show-slevel"]
let () = ShowSlevel.set_range ~min:1 ~max:max_int let () = ShowSlevel.set_range ~min:1 ~max:max_int
let () = Parameter_customize.set_group messages let () = Parameter_customize.set_group messages
...@@ -1217,7 +1177,6 @@ module PrintCallstacks = ...@@ -1217,7 +1177,6 @@ module PrintCallstacks =
let option_name = "-eva-print-callstacks" let option_name = "-eva-print-callstacks"
let help = "When printing a message, also show the current call stack" let help = "When printing a message, also show the current call stack"
end) end)
let () = PrintCallstacks.add_aliases ["-val-print-callstacks"]
let () = Parameter_customize.set_group messages let () = Parameter_customize.set_group messages
module ReportRedStatuses = module ReportRedStatuses =
...@@ -1255,7 +1214,6 @@ module InterpreterMode = ...@@ -1255,7 +1214,6 @@ module InterpreterMode =
let help = "Stop at first call to a library function, if main() has \ let help = "Stop at first call to a library function, if main() has \
arguments, on undecided branches" arguments, on undecided branches"
end) end)
let () = InterpreterMode.add_aliases ["-val-interpreter-mode"]
let () = Parameter_customize.set_group interpreter let () = Parameter_customize.set_group interpreter
module StopAtNthAlarm = module StopAtNthAlarm =
...@@ -1265,7 +1223,6 @@ module StopAtNthAlarm = ...@@ -1265,7 +1223,6 @@ module StopAtNthAlarm =
let arg_name = "n" let arg_name = "n"
let help = "Abort the analysis when the nth alarm is emitted." let help = "Abort the analysis when the nth alarm is emitted."
end) end)
let () = StopAtNthAlarm.add_aliases ["-val-stop-at-nth-alarm"]
(* -------------------------------------------------------------------------- *) (* -------------------------------------------------------------------------- *)
(* --- Ugliness required for correctness --- *) (* --- Ugliness required for correctness --- *)
...@@ -1369,7 +1326,6 @@ module AllocFunctions = ...@@ -1369,7 +1326,6 @@ module AllocFunctions =
By default, contains malloc, calloc and realloc." By default, contains malloc, calloc and realloc."
let default = Datatype.String.Set.of_list ["malloc"; "calloc"; "realloc"] let default = Datatype.String.Set.of_list ["malloc"; "calloc"; "realloc"]
end) end)
let () = AllocFunctions.add_aliases ["-val-malloc-functions"]
let () = AllocFunctions.add_aliases ["-eva-malloc-functions"] let () = AllocFunctions.add_aliases ["-eva-malloc-functions"]
let () = Parameter_customize.set_group malloc let () = Parameter_customize.set_group malloc
...@@ -1380,7 +1336,6 @@ module AllocReturnsNull= ...@@ -1380,7 +1336,6 @@ module AllocReturnsNull=
let help = "Memory allocation built-ins (malloc, calloc, realloc) are \ let help = "Memory allocation built-ins (malloc, calloc, realloc) are \
modeled as nondeterministically returning a null pointer" modeled as nondeterministically returning a null pointer"
end) end)
let () = AllocReturnsNull.add_aliases ["-val-alloc-returns-null"]
let () = Parameter_customize.set_group malloc let () = Parameter_customize.set_group malloc
module MallocLevel = module MallocLevel =
...@@ -1392,7 +1347,61 @@ module MallocLevel = ...@@ -1392,7 +1347,61 @@ module MallocLevel =
let help = "Set to [m] the number of precise dynamic allocations \ let help = "Set to [m] the number of precise dynamic allocations \
besides the initial one, for each callstack (defaults to 0)" besides the initial one, for each callstack (defaults to 0)"
end) end)
let () = MallocLevel.add_aliases ["-val-mlevel"]
(* -------------------------------------------------------------------------- *)
(* --- Deprecated aliases --- *)
(* -------------------------------------------------------------------------- *)
let deprecated_aliases : ((module Parameter_sig.S) * string) list =
[ (module SemanticUnrollingLevel), "-slevel"
; (module SlevelFunction), "-slevel-function"
; (module NoResultsFunctions), "-no-results-function"
; (module ResultsAll), "-results"
; (module JoinResults), "-val-join-results"
; (module AllRoundingModesConstants), "-all-rounding-modes-constants"
; (module UndefinedPointerComparisonPropagateAll), "-undefined-pointer-comparison-propagate-all"
; (module WarnPointerComparison), "-val-warn-undefined-pointer-comparison"
; (module WarnSignedConvertedDowncast), "-val-warn-signed-converted-downcast"
; (module WarnPointerSubstraction), "-val-warn-pointer-subtraction"
; (module IgnoreRecursiveCalls), "-val-ignore-recursive-calls"
; (module WarnCopyIndeterminate), "-val-warn-copy-indeterminate"
; (module ReduceOnLogicAlarms), "-val-reduce-on-logic-alarms"
; (module InitializedLocals), "-val-initialized-locals"
; (module AutomaticContextMaxDepth), "-context-depth"
; (module AutomaticContextMaxWidth), "-context-width"
; (module AllocatedContextValid), "-context-valid-pointers"
; (module InitializationPaddingGlobals), "-val-initialization-padding-globals"
; (module WideningDelay), "-wlevel"
; (module SlevelMergeAfterLoop), "-val-slevel-merge-after-loop"
; (module SplitReturnFunction), "-val-split-return-function"
; (module SplitReturn), "-val-split-return"
; (module ILevel), "-val-ilevel"
; (module BuiltinsOverrides), "-val-builtin"
; (module BuiltinsAuto), "-val-builtins-auto"
; (module BuiltinsList), "-val-builtins-list"
; (module LinearLevel), "-val-subdivide-non-linear"
; (module UsePrototype), "-val-use-spec"
; (module SkipLibcSpecs), "-val-skip-stdlib-specs"
; (module RmAssert), "-remove-redundant-alarms"
; (module MemExecAll), "-memexec-all"
; (module ArrayPrecisionLevel), "-plevel"
; (module ValShowProgress), "-val-show-progress"
; (module ValShowPerf), "-val-show-perf"
; (module ValPerfFlamegraphs), "-val-flamegraph"
; (module ShowSlevel), "-val-show-slevel"
; (module PrintCallstacks), "-val-print-callstacks"
; (module InterpreterMode), "-val-interpreter-mode"
; (module StopAtNthAlarm), "-val-stop-at-nth-alarm"
; (module AllocFunctions), "-val-malloc-functions"
; (module AllocReturnsNull), "-val-alloc-returns-null"
; (module MallocLevel), "-val-mlevel"
]
let add_deprecated_alias ((module P: Parameter_sig.S), name) =
P.add_aliases ~visible:false ~deprecated:true [name]
let () = List.iter add_deprecated_alias deprecated_aliases
(* -------------------------------------------------------------------------- *) (* -------------------------------------------------------------------------- *)
(* --- Meta options --- *) (* --- Meta options --- *)
......
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