Преглед на файлове

[flash] add __global__ access to swc dependencies catalog

Dan Korostelev преди 6 години
родител
ревизия
09a0770f0e
променени са 1 файла, в които са добавени 3 реда и са изтрити 0 реда
  1. 3 0
      src/generators/genswf.ml

+ 3 - 0
src/generators/genswf.ml

@@ -116,6 +116,9 @@ let build_dependencies t =
 				| None -> ()
 				| Some e -> add_expr e
 			end
+		| TArray ({ eexpr = TIdent "__global__" },{ eexpr = TConst (TString s) }) ->
+			let path = parse_path s in
+			add_path path DKExpr;
 		| _ ->
 			Type.iter add_expr e
 	and add_field f =