浏览代码

[cs] do not set override on constructors

Cauê Waneck 11 年之前
父节点
当前提交
e4a113f9ce
共有 1 个文件被更改,包括 1 次插入0 次删除
  1. 1 0
      gencs.ml

+ 1 - 0
gencs.ml

@@ -3101,6 +3101,7 @@ let convert_ilmethod ctx p m is_explicit_impl =
 	in
 	let acc = match m.moverride with
 		| None -> acc
+		| _ when cff_name = "new" -> acc
 		| Some (path,s) -> match lookup_ilclass ctx.nstd ctx.ncom path with
 			| Some ilcls when not (List.mem SInterface ilcls.cflags.tdf_semantics) ->
 				AOverride :: acc