tweak scale constant

ocaml-flambda · Nov 9, 2021 · 1363d06 · 1363d06
1 parent 98e674e
commit 1363d06
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/middle_end/flambda2/from_lambda/closure_conversion.ml b/middle_end/flambda2/from_lambda/closure_conversion.ml
@@ -178,7 +178,7 @@ module Inlining = struct
       Clflags.Float_arg_helper.get ~key:0 !Clflags.inline_threshold
     in
     (* CR keryan: should probably tweak this value *)
-    let magic_scale_constant = 10. in
+    let magic_scale_constant = 8. in
     int_of_float (inline_threshold *. magic_scale_constant)
 
   (* CR keryan: we need to emit warnings *)