Преглед на файлове

Visit abstract implementation types too

Hugh Sanderson преди 12 години
родител
ревизия
c1698af736
променени са 1 файла, в които са добавени 2 реда и са изтрити 0 реда
  1. 2 0
      gencpp.ml

+ 2 - 0
gencpp.ml

@@ -2134,6 +2134,8 @@ let find_referenced_types ctx obj super_deps constructor_deps header_only for_de
 			)
 		| TFun (args,haxe_type) -> visit_type haxe_type;
 				List.iter (fun (_,_,t) -> visit_type t; ) args;
+		| TAbstract (abs,pl) when abs.a_impl <> None ->
+			visit_type (apply_params abs.a_types pl abs.a_this)
 		| _ -> ()
 	in
 	let rec visit_types expression =