Преглед изворни кода

[cs] move InterfaceProps into post-dce type filters, lose any gencommon dependency

Dan Korostelev пре 8 година
родитељ
комит
eb3c9b26df
3 измењених фајлова са 4 додато и 9 уклоњено
  1. 0 8
      src/generators/gencommon/interfaceProps.ml
  2. 0 1
      src/generators/gencs.ml
  3. 4 0
      src/optimization/filters.ml

+ 0 - 8
src/generators/gencommon/interfaceProps.ml

@@ -18,7 +18,6 @@
 *)
 open Globals
 open Type
-open Gencommon
 
 (*
 	This module filter will go through all declared properties, and see if they are conforming to a native interface.
@@ -42,10 +41,3 @@ let run = function
 			) cl.cl_ordered_fields
 	| _ ->
 		()
-
-let name = "interface_props"
-let priority = solve_deps name []
-
-let configure gen =
-	let map md = run md; md in
-	gen.gmodule_filters#add name (PCustom priority) map

+ 0 - 1
src/generators/gencs.ml

@@ -2730,7 +2730,6 @@ let generate con =
 		EnumToClass2.configure gen enum_base;
 
 		InterfaceVarsDeleteModf.configure gen;
-		InterfaceProps.configure gen;
 
 		let dynamic_object = (get_cl (get_type gen (["haxe";"lang"],"DynamicObject")) ) in
 

+ 4 - 0
src/optimization/filters.ml

@@ -1207,4 +1207,8 @@ let run com tctx main =
 		commit_features;
 		(if com.config.pf_reserved_type_paths <> [] then check_reserved_type_paths else (fun _ _ -> ()));
 	] in
+	let type_filters = match com.platform with
+		| Cs -> type_filters @ [ fun _ t -> InterfaceProps.run t ]
+		| _ -> type_filters
+	in
 	List.iter (fun t -> List.iter (fun f -> f tctx t) type_filters) com.types