Browse Source

[As3] temp fix for rare abstract property bug

Simon Krajewski 12 years ago
parent
commit
5315178357
1 changed files with 2 additions and 0 deletions
  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;