Fix upcall stubs not compiling with non-primitive argument types

This commit is contained in:
Joshua Suskalo 2021-09-30 15:25:58 -05:00
parent 3043bf7877
commit 50cc6f3bdc
2 changed files with 2 additions and 1 deletions

View file

@ -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

View file

@ -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)]