fix with readonly/writeonly properties accesses

doc/CHANGES.txt

@@ -5,6 +5,7 @@
 	flash9 : classes implementing ArrayAccess<T> are now dynamic (including TypedDictionary)
 	all : allow "using" on typedefs
 	as3 : minor fixes in genas3 and --gen-hx-classes
+	as3 : fix with readonly/writeonly properties accesses
 
 2010-01-09: 2.05
 	js : added js.Scroll

genas3.ml

@@ -877,7 +877,11 @@ let generate_field ctx static f =
 			| CallAccess m ->
 				print ctx "%s function get %s() : %s { return %s(); }" rights id t m;
 				newline ctx
-			| _ -> ());
+			| NoAccess | NeverAccess ->
+				print ctx "%s function get %s() : %s { return $%s; }" (if f.cf_set = NoAccess then "protected" else "private") id t id;
+				newline ctx
+			| _ ->
+				());
 			(match f.cf_set with
 			| NormalAccess ->
 				print ctx "%s function set %s( __v : %s ) : void { $%s = __v; }" rights id t id;
@@ -885,6 +889,9 @@ let generate_field ctx static f =
 			| CallAccess m ->
 				print ctx "%s function set %s( __v : %s ) : void { %s(__v); }" rights id t m;
 				newline ctx
+			| NoAccess | NeverAccess ->
+				print ctx "%s function set %s( __v : %s ) : void { $%s = __v; }" (if f.cf_set = NoAccess then "protected" else "private") id t id;
+				newline ctx
 			| _ -> ());
 			print ctx "protected var $%s : %s" (s_ident f.cf_name) (type_str ctx f.cf_type p);
 		end else begin