Use coerce-addressable where possible

This commit is contained in:
Joshua Suskalo 2022-07-07 11:11:21 -05:00
parent b8383a467b
commit 3794ab7d5f
No known key found for this signature in database
GPG key ID: 9B6BA586EFF1B9F0

View file

@ -506,10 +506,7 @@
([args] (method-type args ::mem/void))
([args ret]
(MethodType/methodType
^Class (let [r (mem/java-layout ret)]
(if (= r MemoryAddress)
Addressable
r))
^Class (coerce-addressable (mem/java-layout ret))
^"[Ljava.lang.Class;" (into-array Class (map mem/java-layout args)))))
(defn- upcall-handle