瀏覽代碼

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

Aleksandr Kuzmenko 5 年之前
父節點
當前提交
30bbafb4a1
共有 1 個文件被更改,包括 2 次插入1 次删除
  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 =