Browse Source

default to private visibility for abstract fields if haxe version is >= 3.2 (closes #2235)

Simon Krajewski 11 years ago
parent
commit
fb155f36ae
1 changed files with 1 additions and 1 deletions
  1. 1 1
      typeload.ml

+ 1 - 1
typeload.ml

@@ -1442,7 +1442,7 @@ let init_class ctx c p context_init herits fields =
 			true
 		else match parent with
 			| Some { cf_public = p } -> p
-			| _ -> c.cl_extern || c.cl_interface || extends_public || (match c.cl_kind with KAbstractImpl _ -> true | _ -> false)
+			| _ -> c.cl_extern || c.cl_interface || extends_public || (ctx.com.version < 30200 && match c.cl_kind with KAbstractImpl _ -> true | _ -> false)
 	in
 	let rec get_parent c name =
 		match c.cl_super with