From d2acdf19fa2b858a9b05b5f4aec3f913bda9cbb9 Mon Sep 17 00:00:00 2001 From: Rudy Ges Date: Wed, 31 Jul 2024 09:45:23 +0200 Subject: [PATCH] Flush between actx.classes loading --- src/compiler/compiler.ml | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/compiler/compiler.ml b/src/compiler/compiler.ml index 2c0db1ed8da..d85d6eb0f13 100644 --- a/src/compiler/compiler.ml +++ b/src/compiler/compiler.ml @@ -308,7 +308,10 @@ let do_type ctx mctx actx display_file_dot_path = com.callbacks#run com.error_ext com.callbacks#get_after_init_macros; run_or_diagnose ctx (fun () -> if com.display.dms_kind <> DMNone then DisplayTexpr.check_display_file tctx cs; - List.iter (fun cpath -> ignore(tctx.Typecore.g.Typecore.do_load_module tctx cpath null_pos)) (List.rev actx.classes); + List.iter (fun cpath -> + ignore(tctx.Typecore.g.Typecore.do_load_module tctx cpath null_pos); + Typecore.flush_pass tctx.g (PBuildClass:Typecore.typer_pass) "actx.classes" + ) (List.rev actx.classes); Finalization.finalize tctx; ); end with TypeloadParse.DisplayInMacroBlock ->