Переглянути джерело

[Swf] consider .hx files when resolving valid paths (fixed issue #1389)

Simon Krajewski 12 роки тому
батько
коміт
af8221aa8e
1 змінених файлів з 2 додано та 1 видалено
  1. 2 1
      genswf.ml

+ 2 - 1
genswf.ml

@@ -105,7 +105,8 @@ let is_valid_path com pack name =
 			| None -> loop l
 			| Some (file,(_,a)) -> true
 	in
-	loop com.load_extern_type
+	let file = Printf.sprintf "%s/%s.hx" (String.concat "/" pack) name in
+	loop com.load_extern_type || (try ignore(Common.find_file com file); true with Not_found -> false)
 
 let build_class com c file =
 	let path = make_tpath c.hlc_name in