소스 검색

minor swc fix

Nicolas Cannasse 16 년 전
부모
커밋
f4f57c274c
1개의 변경된 파일6개의 추가작업 그리고 0개의 파일을 삭제
  1. 6 0
      genswf.ml

+ 6 - 0
genswf.ml

@@ -364,6 +364,12 @@ let build_dependencies t =
 		(match c.cl_super with
 		| None -> add_path ([],"Object") DKInherit;
 		| Some x -> add_inherit x);
+		List.iter (fun (_,t) ->
+			(* add type-parameters constraints dependencies *)
+			match follow t with
+			| TInst (c,_) -> List.iter add_inherit c.cl_implements
+			| _ -> ()
+		) c.cl_types;
 		List.iter add_inherit c.cl_implements;
 	| TEnumDecl e when not e.e_extern ->
 		PMap.iter (fun _ f -> add_type f.ef_type) e.e_constrs;