|
@@ -1399,7 +1399,7 @@ module Inheritance = struct
|
|
|
List.iter (fun m ->
|
|
|
match m with
|
|
|
| Meta.Final, _, _ -> if not (Meta.has Meta.Hack c.cl_meta || (match c.cl_kind with KTypeParameter _ -> true | _ -> false)) then error "Cannot extend a final class" p;
|
|
|
- | Meta.AutoBuild, el, p -> c.cl_meta <- (Meta.Build,el,null_pos) :: m :: c.cl_meta
|
|
|
+ | Meta.AutoBuild, el, p -> c.cl_meta <- (Meta.Build,el,c.cl_pos) :: m :: c.cl_meta
|
|
|
| _ -> ()
|
|
|
) csup.cl_meta
|
|
|
in
|