@@ -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
@@ -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
@@ -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