Просмотр исходного кода

[cs] do not set override on constructors

Cauê Waneck 11 лет назад
Родитель
Сommit
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
 	in
 	let acc = match m.moverride with
 	let acc = match m.moverride with
 		| None -> acc
 		| None -> acc
+		| _ when cff_name = "new" -> acc
 		| Some (path,s) -> match lookup_ilclass ctx.nstd ctx.ncom path with
 		| Some (path,s) -> match lookup_ilclass ctx.nstd ctx.ncom path with
 			| Some ilcls when not (List.mem SInterface ilcls.cflags.tdf_semantics) ->
 			| Some ilcls when not (List.mem SInterface ilcls.cflags.tdf_semantics) ->
 				AOverride :: acc
 				AOverride :: acc