소스 검색

[As3] temp fix for rare abstract property bug

Simon Krajewski 12 년 전
부모
커밋
5315178357
1개의 변경된 파일2개의 추가작업 그리고 0개의 파일을 삭제
  1. 2 0
      typeload.ml

+ 2 - 0
typeload.ml

@@ -131,6 +131,8 @@ let make_module ctx mpath file tdecls loadp =
 					let p = f.cff_pos in
 					match f.cff_kind with
 					| FProp ("get","never",_,_) ->
+						(* TODO: hack to avoid issues with abstract property generation on As3 *)
+						if Common.defined ctx.com Define.As3 then f.cff_meta <- (Meta.Extern,[],p) :: f.cff_meta;
 						{ f with cff_access = AStatic :: f.cff_access; cff_meta = (Meta.Impl,[],p) :: f.cff_meta }
 					| FProp _ when not stat ->
 						display_error ctx "Member property on abstract must be (get,never)" p;