Less aggressive functor inlining for JavaScript code

Author: vouillon

compiler/lib/inline.ml

@@ -326,9 +326,10 @@ let interesting_parameters ~context info =
    code elimination, ...
 *)
 let functor_like ~context info =
-  (match context.profile with
-  | O1 -> body_size ~context info <= 15
-  | O2 | O3 -> true)
+  (match Config.target (), context.profile with
+  | `Wasm, (O2 | O3) -> true
+  | `Wasm, O1 -> body_size ~context info <= 15
+  | `JavaScript, (O1 | O2 | O3) -> body_size ~context info <= 15)
   && (not info.recursive)
   && (not (contains_loop ~context info))
   && returns_a_block ~context info