From 25f7acdd8797de986cd4ef1b71ce195870526a49 Mon Sep 17 00:00:00 2001 From: Mark Shinwell Date: Wed, 13 Oct 2021 12:19:03 +0100 Subject: [PATCH] Make inlining params more aggressive --- ocaml/utils/clflags.ml | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/ocaml/utils/clflags.ml b/ocaml/utils/clflags.ml index 01304b61940..7835fd8df5e 100644 --- a/ocaml/utils/clflags.ml +++ b/ocaml/utils/clflags.ml @@ -606,7 +606,7 @@ module Flambda2 = struct } let o2_arguments = { - max_depth = Some 2; + max_depth = Some 10; call_cost = Some (2.0 *. Default.call_cost); alloc_cost = Some (2.0 *. Default.alloc_cost); prim_cost = Some (2.0 *. Default.prim_cost); @@ -619,16 +619,16 @@ module Flambda2 = struct } let o3_arguments = { - max_depth = Some 3; + max_depth = Some 20; call_cost = Some (3.0 *. Default.call_cost); alloc_cost = Some (3.0 *. Default.alloc_cost); prim_cost = Some (3.0 *. Default.prim_cost); branch_cost = Some (3.0 *. Default.branch_cost); indirect_call_cost = Some (3.0 *. Default.indirect_call_cost); poly_compare_cost = Some (3.0 *. Default.poly_compare_cost); - small_function_size = Some (3 * Default.small_function_size); - large_function_size = Some (8 * Default.large_function_size); - threshold = Some 50.; + small_function_size = Some (10 * Default.small_function_size); + large_function_size = Some (100 * Default.large_function_size); + threshold = Some 100.; } end