Explorar o código

no flash9 method access rights.

Nicolas Cannasse %!s(int64=19) %!d(string=hai) anos
pai
achega
0c5230e76d
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      genxml.ml

+ 1 - 1
genxml.ml

@@ -87,7 +87,7 @@ let gen_field att f =
 		| NormalAccess -> att
 		| NoAccess -> (name, "null") :: att
 		| MethodAccess m -> (name, if m = name ^ "_" ^ f.cf_name then "dynamic" else m) :: att
-		| F9MethodAccess -> (name,"f9dynamic") :: att
+		| F9MethodAccess -> att
 	in
 	let att = (match f.cf_expr with None -> att | Some e -> ("line",string_of_int (Lexer.get_error_line e.epos)) :: att) in
 	let att = add_get_set f.cf_get "get" att in