Преглед изворни кода

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 ->
 				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