浏览代码

[swf] explicitly ignore Null when building swf catalog

closes #7994
Simon Krajewski 6 年之前
父节点
当前提交
d7426d107d
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      src/generators/genswf.ml

+ 1 - 1
src/generators/genswf.ml

@@ -74,7 +74,7 @@ let build_dependencies t =
 			(match c.cl_kind with KTypeParameter _ -> () | _ -> add_path c.cl_path DKType);
 			List.iter (add_type_rec (t::l)) pl;
 		| TAbstract (a,pl) ->
-			if Meta.has Meta.CoreType a.a_meta then
+			if a.a_path <> ([],"Null") && Meta.has Meta.CoreType a.a_meta then
 				add_path a.a_path DKType;
 			List.iter (add_type_rec (t::l)) pl;
 		| TFun (pl,t2) ->