Explorar o código

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

their "packages" are surely not lowercased ;-)
Dan Korostelev %!s(int64=6) %!d(string=hai) anos
pai
achega
8cc3ae49ce
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  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 =
 		(* if the package was lowercased, add @:native("Original.Path") meta *)
 		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
 			[(Meta.Native,[(EConst (String native_path), pos)],pos)]
 		| _ ->