Browse Source

allowed access to "never" fields in untyped mode

Nicolas Cannasse 14 years ago
parent
commit
cf0b6db901
1 changed files with 1 additions and 1 deletions
  1. 1 1
      typer.ml

+ 1 - 1
typer.ml

@@ -411,7 +411,7 @@ let field_access ctx mode f t e p =
 			let tresolve = tfun [ctx.t.tstring] t in
 			AKExpr (make_call ctx (mk (TField (e,"resolve")) tresolve p) [fstring] t p)
 		| AccNever ->
-			AKNo f.cf_name
+			if ctx.untyped then normal() else AKNo f.cf_name
 		| AccInline ->
 			AKInline (e,f,t)
 		| AccRequire r ->