@ -11,7 +11,6 @@
open ! IStd
open ! IStd
module F = Format
module F = Format
module L = Logging
module L = Logging
module CLOpt = CommandLineOption
let clear_caches_except_lrus () =
let clear_caches_except_lrus () =
Summary . OnDisk . clear_cache () ;
Summary . OnDisk . clear_cache () ;
@ -134,17 +133,13 @@ let get_source_files_to_analyze ~changed_files =
let tasks_generator_builder_for sources =
let tasks_generator_builder_for sources =
if Config . call_graph_schedule then (
match Config . scheduler with
CLOpt . warnf " WARNING: '--call-graph-schedule' is deprecated. Use '--scheduler' instead.@. " ;
| File ->
SyntacticCallGraph . make sources )
FileScheduler . make sources
else
| Restart ->
match Config . scheduler with
RestartScheduler . make sources
| File ->
| SyntacticCallGraph ->
FileScheduler . make sources
SyntacticCallGraph . make sources
| Restart ->
RestartScheduler . make sources
| SyntacticCallGraph ->
SyntacticCallGraph . make sources
let analyze source_files_to_analyze =
let analyze source_files_to_analyze =