[hxb] delay to PForce pass

HaxeFoundation · Dec 13, 2024 · ff52375 · ff52375
1 parent 02e32e7
commit ff52375
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 3 deletions.
diff --git a/src/compiler/server.ml b/src/compiler/server.ml
@@ -476,7 +476,6 @@ class hxb_reader_api_server
 
 	method make_lazy_type t f =
 		let r = make_unforced_lazy t f "server-api" in
-		 (* TODO: This should probably use the PForce pass, not PConnectField *)
 		delay (fun () -> ignore(lazy_type r));
 		TLazy r
 end

diff --git a/src/context/display/displayTexpr.ml b/src/context/display/displayTexpr.ml
@@ -174,7 +174,7 @@ let check_display_file ctx cs =
 			let m = try
 				ctx.com.module_lut#find path
 			with Not_found ->
-				begin match !TypeloadCacheHook.type_module_hook ctx.com (delay ctx.g PConnectField) path null_pos with
+				begin match !TypeloadCacheHook.type_module_hook ctx.com (delay ctx.g PForce) path null_pos with
 				| NoModule | BadModule _ -> raise Not_found
 				| BinaryModule mc ->
 					let api = (new TypeloadModule.hxb_reader_api_typeload ctx.com ctx.g TypeloadModule.load_module' p :> HxbReaderApi.hxb_reader_api) in

diff --git a/src/typing/typeloadModule.ml b/src/typing/typeloadModule.ml
@@ -813,7 +813,7 @@ and load_module' com g m p =
 		com.module_lut#find m
 	with Not_found ->
 		(* Check cache *)
-		match !TypeloadCacheHook.type_module_hook com (delay g PConnectField) m p with
+		match !TypeloadCacheHook.type_module_hook com (delay g PForce) m p with
 		| GoodModule m ->
 			m
 		| BinaryModule _ ->