Bläddra i källkod

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

their "packages" are surely not lowercased ;-)
Dan Korostelev 6 år sedan
förälder
incheckning
8cc3ae49ce
1 ändrade filer med 1 tillägg och 1 borttagningar
  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)]
 		| _ ->