Explorar o código

[cs] fix optional args for Reflect.callMethod()
#8975

Aleksandr Kuzmenko %!s(int64=5) %!d(string=hai) anos
pai
achega
30bbafb4a1
Modificáronse 1 ficheiros con 2 adicións e 1 borrados
  1. 2 1
      src/codegen/gencommon/reflectionCFs.ml

+ 2 - 1
src/codegen/gencommon/reflectionCFs.ml

@@ -1169,7 +1169,8 @@ let implement_invokeField ctx slow_invoke cl =
 			has_method := true;
 			let i = ref 0 in
 			let dyn_arg_local = mk_local dynamic_arg pos in
-			let dyn_arg_length = field dyn_arg_local "length" ctx.rcf_gen.gcon.basic.tint pos in
+			let length_name = match ctx.rcf_gen.gcon.platform with Cs -> "Length" | _ -> "length" in
+			let dyn_arg_length = field dyn_arg_local length_name ctx.rcf_gen.gcon.basic.tint pos in
 			let cases = List.map (switch_case ctx pos) names in
 
 			let mk_this_call cf params =