|
@@ -766,17 +766,16 @@ let check_overloads ctx c =
|
|
|
) (f :: f.cf_overloads)) (c.cl_ordered_fields @ c.cl_ordered_statics)
|
|
|
|
|
|
let check_overriding ctx c =
|
|
|
- let p = c.cl_pos in
|
|
|
match c.cl_super with
|
|
|
| None ->
|
|
|
(match c.cl_overrides with
|
|
|
| [] -> ()
|
|
|
| i :: _ ->
|
|
|
- display_error ctx ("Field " ^ i.cf_name ^ " is declared 'override' but doesn't override any field") p)
|
|
|
+ display_error ctx ("Field " ^ i.cf_name ^ " is declared 'override' but doesn't override any field") i.cf_pos)
|
|
|
| Some (csup,params) ->
|
|
|
PMap.iter (fun i f ->
|
|
|
+ let p = f.cf_pos in
|
|
|
let check_field f get_super_field is_overload = try
|
|
|
- let p = f.cf_pos in
|
|
|
(if is_overload && not (Meta.has Meta.Overload f.cf_meta) then
|
|
|
display_error ctx ("Missing @:overload declaration for field " ^ i) p);
|
|
|
let t, f2 = get_super_field csup i in
|