Fix upcall stubs not compiling with non-primitive argument types
This commit is contained in:
parent
3043bf7877
commit
50cc6f3bdc
2 changed files with 2 additions and 1 deletions
|
|
@ -3,6 +3,7 @@ All notable changes to this project will be documented in this file. This change
|
||||||
|
|
||||||
## [Unreleased]
|
## [Unreleased]
|
||||||
### Fixed
|
### Fixed
|
||||||
|
- Upcall stubs with non-primitive arguments failed to compile
|
||||||
- Upcall stubs had incorrect types
|
- Upcall stubs had incorrect types
|
||||||
|
|
||||||
## [0.1.176] - 2021-09-29
|
## [0.1.176] - 2021-09-29
|
||||||
|
|
|
||||||
|
|
@ -320,7 +320,7 @@
|
||||||
[:getfield :this "upcall_ifn" IFn]
|
[:getfield :this "upcall_ifn" IFn]
|
||||||
(map-indexed
|
(map-indexed
|
||||||
(fn [idx arg]
|
(fn [idx arg]
|
||||||
[[(load-instructions arg) (inc idx)]
|
[[(load-instructions arg :aload) (inc idx)]
|
||||||
(to-object-asm arg)])
|
(to-object-asm arg)])
|
||||||
arg-types)
|
arg-types)
|
||||||
[:invokeinterface IFn "invoke" (repeat (inc (count arg-types)) Object)]
|
[:invokeinterface IFn "invoke" (repeat (inc (count arg-types)) Object)]
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue