Browse Source

copy :build metadata to abstract implementation class

Simon Krajewski 12 years ago
parent
commit
e31ab2702c
1 changed files with 1 additions and 0 deletions
  1. 1 0
      typeload.ml

+ 1 - 0
typeload.ml

@@ -162,6 +162,7 @@ let make_module ctx mpath file tdecls loadp =
 				let acc = make_decl acc (EClass { d_name = d.d_name ^ "Impl"; d_flags = [HPrivate]; d_data = fields; d_doc = None; d_params = []; d_meta = [] },p) in
 				let acc = make_decl acc (EClass { d_name = d.d_name ^ "Impl"; d_flags = [HPrivate]; d_data = fields; d_doc = None; d_params = []; d_meta = [] },p) in
 				(match !decls with
 				(match !decls with
 				| (TClassDecl c,_) :: _ ->
 				| (TClassDecl c,_) :: _ ->
+					(try c.cl_meta <- (Meta.get Meta.Build a.a_meta) :: c.cl_meta with Not_found -> ());
 					a.a_impl <- Some c;
 					a.a_impl <- Some c;
 					c.cl_kind <- KAbstractImpl a
 					c.cl_kind <- KAbstractImpl a
 				| _ -> assert false);
 				| _ -> assert false);