|
@@ -1386,7 +1386,7 @@ class texpr_to_jvm gctx (jc : JvmClass.builder) (jm : JvmMethod.builder) (return
|
|
|
(* Don't use call_arguments here because we don't have to cast. *)
|
|
|
let tl = List.map (fun e ->
|
|
|
self#texpr rvalue_any e;
|
|
|
- jsignature_of_type gctx e.etype
|
|
|
+ code#get_stack#top
|
|
|
) el in
|
|
|
let _,tr = self#get_argument_signatures t el in
|
|
|
let meth = gctx.typed_functions#register_signature tl tr in
|