Inlining in Closure_conversion within local compilation unit (#203)

ocaml-flambda · Jan 14, 2022 · a3aa8b4 · a3aa8b4
1 parent f83bdc8
commit a3aa8b4
Show file tree

Hide file tree

Showing 11 changed files with 691 additions and 161 deletions.
diff --git a/middle_end/flambda2/flambda2.ml b/middle_end/flambda2/flambda2.ml
@@ -155,6 +155,10 @@ let lambda_to_cmm ~ppf_dump:ppf ~prefixname ~filename ~module_ident
     in
     Compiler_hooks.execute Raw_flambda2 raw_flambda;
     print_rawflambda ppf raw_flambda;
+    (if Flambda_features.inlining_report ()
+    then
+      let output_prefix = prefixname ^ ".cps_conv" in
+      Inlining_report.output_then_forget_decisions ~output_prefix);
     let flambda, cmx, all_code =
       if Flambda_features.classic_mode ()
       then raw_flambda, None, code