tune

Author: hhugo

compiler/lib/config.ml

@@ -118,7 +118,8 @@ module Param = struct
   let switch_max_case =
     p ~name:"switch_size" ~desc:"set the maximum number of case in a switch" (int 60)
 
-  let inline_max_size = p ~name:"inline_limit" ~desc:"<TODO>" (int 500)
+  let inlining_limit =
+    p ~name:"inlining-limit" ~desc:"set the size limit for inlining" (int 500)
 
   let tailcall_max_depth =
     p

compiler/lib/config.mli

@@ -75,7 +75,7 @@ module Param : sig
 
   val switch_max_case : unit -> int
 
-  val inline_max_size : unit -> int
+  val inlining_limit : unit -> int
 
   val tailcall_max_depth : unit -> int
 

compiler/lib/inline.ml

@@ -214,7 +214,7 @@ let inline closures live_vars (outer_optimizable, _) pc (blocks, free_pc) =
             | `Fail ->
                 if live_vars.(Var.idx f) = 1
                    && Bool.equal outer_optimizable f_optimizable
-                   && f_size < Config.Param.inline_max_size ()
+                   && f_size < Config.Param.inlining_limit ()
                    (* Inlining the code of an optimizable function could
                       make this code unoptimized. (wrt to Jit compilers)