respect position of EField (see #3671)

typer.ml

@@ -2573,6 +2573,7 @@ and type_access ctx e p mode =
 					Not_found -> loop [] path
 		in
 		let rec loop acc e =
+			let p = pos e in
 			match fst e with
 			| EField (e,s) ->
 				loop ((s,not (is_lower_ident s),p) :: acc) e