浏览代码

[swf] fix const parsing

Simon Krajewski 9 年之前
父节点
当前提交
82526b9ea1
共有 2 个文件被更改,包括 3 次插入2 次删除
  1. 2 1
      genswf.ml
  2. 1 1
      libs

+ 2 - 1
genswf.ml

@@ -323,7 +323,8 @@ let build_class com c file =
 			| [] -> []
 			| f :: l ->
 				match f.cff_kind with
-				| FVar (Some (CTPath { tpackage = []; tname = ("String" | "Int" | "UInt") as tname }),None) when List.mem AStatic f.cff_access ->
+				| FVar (Some (CTPath { tpackage = []; tname = ("String" | "Int" | "UInt") as tname }),None)
+				| FProp ("default","never",Some (CTPath { tpackage = []; tname = ("String" | "Int" | "UInt") as tname }),None) when List.mem AStatic f.cff_access ->
 					if !real_type = "" then real_type := tname else if !real_type <> tname then raise Exit;
 					{
 						ec_name = f.cff_name;

+ 1 - 1
libs

@@ -1 +1 @@
-Subproject commit 4a8f47724a6f4d37a94bc3c0a21fc1800768c287
+Subproject commit 457caa17137a6536a526d25536da7864669a4696