guarded lambda traversal for specific clflag (ocaml#476)

Keryan-dev · Jun 18, 2021 · af40273 · af40273
1 parent 65779a7
commit af40273
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/middle_end/flambda/from_lambda/cps_conversion.ml b/middle_end/flambda/from_lambda/cps_conversion.ml
@@ -1420,7 +1420,12 @@ and cps_function env ~fid ~stub
     Closure_id.wrap (Compilation_unit.get_current_exn ())
       (Variable.create_with_same_name_as_ident fid)
   in
-  let contains_closures = contains_functions body in
+  let contains_closures =
+    (* only useful with this flag *)
+    if !Clflags.Flambda.Expert.fallback_inlining_heuristic
+    then contains_functions body
+    else false
+  in
   let body = fun acc ccenv ->
     cps_tail acc new_env ccenv body body_cont body_exn_cont
   in