flambda-backend: Fix different .cmi files being produced by ocamlopt …

…and ocamlc when using -pack (#1049)
ocaml-flambda · Jan 6, 2023 · d03b346 · d03b346
1 parent 90ee37b
commit d03b346
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/bytecomp/bytepackager.ml b/bytecomp/bytepackager.ml
@@ -267,6 +267,7 @@ let package_files ~ppf_dump initial_env files targetfile =
       Compilation_unit.create (Compilation_unit.Prefix.from_clflags ())
         (targetname |> Compilation_unit.Name.of_string)
     in
+    Compilation_unit.set_current (Some comp_unit);
     Misc.try_finally (fun () ->
         let coercion =
           Typemod.package_units initial_env files targetcmi comp_unit in