浏览代码

[flash] don't try adding @:native to toplevel classes

their "packages" are surely not lowercased ;-)
Dan Korostelev 6 年之前
父节点
当前提交
8cc3ae49ce
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      src/codegen/swfLoader.ml

+ 1 - 1
src/codegen/swfLoader.ml

@@ -380,7 +380,7 @@ let build_class com c file =
 	let meta =
 	let meta =
 		(* if the package was lowercased, add @:native("Original.Path") meta *)
 		(* if the package was lowercased, add @:native("Original.Path") meta *)
 		match c.hlc_name with
 		match c.hlc_name with
-		| HMPath (pack,name) when pack <> path.tpackage ->
+		| HMPath (pack,name) when (pack <> [] && pack <> path.tpackage) ->
 			let native_path = (String.concat "." pack) ^ "." ^ name in
 			let native_path = (String.concat "." pack) ^ "." ^ name in
 			[(Meta.Native,[(EConst (String native_path), pos)],pos)]
 			[(Meta.Native,[(EConst (String native_path), pos)],pos)]
 		| _ ->
 		| _ ->