浏览代码

more accurate position in build meta synthesized by autoBuild

Nicolas Cannasse 8 年之前
父节点
当前提交
ef0e66e019
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      src/typing/typeload.ml

+ 1 - 1
src/typing/typeload.ml

@@ -1399,7 +1399,7 @@ module Inheritance = struct
 			List.iter (fun m ->
 			List.iter (fun m ->
 				match m with
 				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.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
 			) csup.cl_meta
 		in
 		in