`sig module Int_arg_helper : sig type parsed val parse : string -> help_text:string -> update:Clflags.Int_arg_helper.parsed Pervasives.ref -> unit type parse_result = Ok | Parse_failed of exn val parse_no_error : string -> update:Clflags.Int_arg_helper.parsed Pervasives.ref -> Clflags.Int_arg_helper.parse_result val get : key:int -> Clflags.Int_arg_helper.parsed -> int end module Float_arg_helper : sig type parsed val parse : string -> help_text:string -> update:Clflags.Float_arg_helper.parsed Pervasives.ref -> unit type parse_result = Ok | Parse_failed of exn val parse_no_error : string -> update:Clflags.Float_arg_helper.parsed Pervasives.ref -> Clflags.Float_arg_helper.parse_result val get : key:int -> Clflags.Float_arg_helper.parsed -> float end type inlining_arguments = { inline_call_cost : int option; inline_alloc_cost : int option; inline_prim_cost : int option; inline_branch_cost : int option; inline_indirect_cost : int option; inline_lifting_benefit : int option; inline_branch_factor : float option; inline_max_depth : int option; inline_max_unroll : int option; inline_threshold : float option; inline_toplevel_threshold : int option; } val classic_arguments : Clflags.inlining_arguments val o1_arguments : Clflags.inlining_arguments val o2_arguments : Clflags.inlining_arguments val o3_arguments : Clflags.inlining_arguments val use_inlining_arguments_set : ?round:int -> Clflags.inlining_arguments -> unit val objfiles : string list Pervasives.ref val ccobjs : string list Pervasives.ref val dllibs : string list Pervasives.ref val compile_only : bool Pervasives.ref val output_name : string option Pervasives.ref val include_dirs : string list Pervasives.ref val no_std_include : bool Pervasives.ref val print_types : bool Pervasives.ref val make_archive : bool Pervasives.ref val debug : bool Pervasives.ref val fast : bool Pervasives.ref val link_everything : bool Pervasives.ref val custom_runtime : bool Pervasives.ref val no_check_prims : bool Pervasives.ref val bytecode_compatible_32 : bool Pervasives.ref val output_c_object : bool Pervasives.ref val output_complete_object : bool Pervasives.ref val all_ccopts : string list Pervasives.ref val classic : bool Pervasives.ref val nopervasives : bool Pervasives.ref val open_modules : string list Pervasives.ref val preprocessor : string option Pervasives.ref val all_ppx : string list Pervasives.ref val annotations : bool Pervasives.ref val binary_annotations : bool Pervasives.ref val use_threads : bool Pervasives.ref val use_vmthreads : bool Pervasives.ref val noassert : bool Pervasives.ref val verbose : bool Pervasives.ref val noprompt : bool Pervasives.ref val nopromptcont : bool Pervasives.ref val init_file : string option Pervasives.ref val noinit : bool Pervasives.ref val use_prims : string Pervasives.ref val use_runtime : string Pervasives.ref val principal : bool Pervasives.ref val real_paths : bool Pervasives.ref val recursive_types : bool Pervasives.ref val strict_sequence : bool Pervasives.ref val strict_formats : bool Pervasives.ref val applicative_functors : bool Pervasives.ref val make_runtime : bool Pervasives.ref val gprofile : bool Pervasives.ref val c_compiler : string option Pervasives.ref val no_auto_link : bool Pervasives.ref val dllpaths : string list Pervasives.ref val make_package : bool Pervasives.ref val for_package : string option Pervasives.ref val error_size : int Pervasives.ref val float_const_prop : bool Pervasives.ref val transparent_modules : bool Pervasives.ref val dump_source : bool Pervasives.ref val dump_parsetree : bool Pervasives.ref val dump_typedtree : bool Pervasives.ref val dump_rawlambda : bool Pervasives.ref val dump_lambda : bool Pervasives.ref val dump_rawclambda : bool Pervasives.ref val dump_clambda : bool Pervasives.ref val dump_rawflambda : bool Pervasives.ref val dump_flambda : bool Pervasives.ref val dump_flambda_let : int option Pervasives.ref val dump_instr : bool Pervasives.ref val keep_asm_file : bool Pervasives.ref val optimize_for_speed : bool Pervasives.ref val dump_cmm : bool Pervasives.ref val dump_selection : bool Pervasives.ref val dump_cse : bool Pervasives.ref val dump_live : bool Pervasives.ref val dump_spill : bool Pervasives.ref val dump_split : bool Pervasives.ref val dump_interf : bool Pervasives.ref val dump_prefer : bool Pervasives.ref val dump_regalloc : bool Pervasives.ref val dump_reload : bool Pervasives.ref val dump_scheduling : bool Pervasives.ref val dump_linear : bool Pervasives.ref val keep_startup_file : bool Pervasives.ref val dump_combine : bool Pervasives.ref val native_code : bool Pervasives.ref val default_inline_threshold : float val inline_threshold : Clflags.Float_arg_helper.parsed Pervasives.ref val inlining_report : bool Pervasives.ref val simplify_rounds : int option Pervasives.ref val default_simplify_rounds : int Pervasives.ref val rounds : unit -> int val default_inline_max_unroll : int val inline_max_unroll : Clflags.Int_arg_helper.parsed Pervasives.ref val default_inline_toplevel_threshold : int val inline_toplevel_threshold : Clflags.Int_arg_helper.parsed Pervasives.ref val default_inline_call_cost : int val default_inline_alloc_cost : int val default_inline_prim_cost : int val default_inline_branch_cost : int val default_inline_indirect_cost : int val default_inline_lifting_benefit : int val inline_call_cost : Clflags.Int_arg_helper.parsed Pervasives.ref val inline_alloc_cost : Clflags.Int_arg_helper.parsed Pervasives.ref val inline_prim_cost : Clflags.Int_arg_helper.parsed Pervasives.ref val inline_branch_cost : Clflags.Int_arg_helper.parsed Pervasives.ref val inline_indirect_cost : Clflags.Int_arg_helper.parsed Pervasives.ref val inline_lifting_benefit : Clflags.Int_arg_helper.parsed Pervasives.ref val default_inline_branch_factor : float val inline_branch_factor : Clflags.Float_arg_helper.parsed Pervasives.ref val dont_write_files : bool Pervasives.ref val std_include_flag : string -> string val std_include_dir : unit -> string list val shared : bool Pervasives.ref val dlcode : bool Pervasives.ref val pic_code : bool Pervasives.ref val runtime_variant : string Pervasives.ref val force_slash : bool Pervasives.ref val keep_docs : bool Pervasives.ref val keep_locs : bool Pervasives.ref val unsafe_string : bool Pervasives.ref val opaque : bool Pervasives.ref val print_timings : bool Pervasives.ref val flambda_invariant_checks : bool Pervasives.ref val unbox_closures : bool Pervasives.ref val unbox_closures_factor : int Pervasives.ref val default_unbox_closures_factor : int val unbox_free_vars_of_closures : bool Pervasives.ref val unbox_specialised_args : bool Pervasives.ref val clambda_checks : bool Pervasives.ref val default_inline_max_depth : int val inline_max_depth : Clflags.Int_arg_helper.parsed Pervasives.ref val remove_unused_arguments : bool Pervasives.ref val dump_flambda_verbose : bool Pervasives.ref val classic_inlining : bool Pervasives.ref val all_passes : string list Pervasives.ref val dumped_pass : string -> bool val set_dumped_pass : string -> bool -> unit val parse_color_setting : string -> Misc.Color.setting option val color : Misc.Color.setting Pervasives.ref end`