Explorar el Código

minor swc fix

Nicolas Cannasse hace 16 años
padre
commit
f4f57c274c
Se han modificado 1 ficheros con 6 adiciones y 0 borrados
  1. 6 0
      genswf.ml

+ 6 - 0
genswf.ml

@@ -364,6 +364,12 @@ let build_dependencies t =
 		(match c.cl_super with
 		(match c.cl_super with
 		| None -> add_path ([],"Object") DKInherit;
 		| None -> add_path ([],"Object") DKInherit;
 		| Some x -> add_inherit x);
 		| 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;
 		List.iter add_inherit c.cl_implements;
 	| TEnumDecl e when not e.e_extern ->
 	| TEnumDecl e when not e.e_extern ->
 		PMap.iter (fun _ f -> add_type f.ef_type) e.e_constrs;
 		PMap.iter (fun _ f -> add_type f.ef_type) e.e_constrs;