luciano/coffi
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix indentation of upcall-class

Browse source
This commit is contained in:
Joshua Suskalo 2021-09-23 12:26:40 -05:00
parent f7f8e44a80
commit 284b76255a
1 changed files with 27 additions and 27 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

54
src/clj/coffi/ffi.clj
View file

@ -862,33 +862,33 @@
(defn- upcall-class
[arg-types ret-type]
{:flags #{:public :final}
:fields [{:name "upcall_ifn"
:type IFn
:flags #{:final}}]
:methods [{:name :init
:flags #{:public}
:desc [IFn :void]
:emit [[:aload 0]
[:dup]
[:invokespecial :super :init [:void]]
[:aload 1]
[:putfield :this "upcall_ifn" IFn]
[:return]]}
{:name :upcall
:flags #{:public}
:desc (conj (mapv java-layout arg-types)
(java-layout ret-type))
:emit [[:aload 0]
[:dup]
[:getfield :this "upcall_ifn" IFn]
(map-indexed
(fn [idx arg]
[[(load-instructions arg) (inc idx)]
(to-object-asm arg)])
arg-types)
[:invokevirtual IFn "invoke" (repeat (inc (count arg-types)) Object)]
(to-prim-asm ret-type)
[(return-for-type ret-type :areturn)]]}]})
:fields [{:name "upcall_ifn"
:type IFn
:flags #{:final}}]
:methods [{:name :init
:flags #{:public}
:desc [IFn :void]
:emit [[:aload 0]
[:dup]
[:invokespecial :super :init [:void]]
[:aload 1]
[:putfield :this "upcall_ifn" IFn]
[:return]]}
{:name :upcall
:flags #{:public}
:desc (conj (mapv java-layout arg-types)
(java-layout ret-type))
:emit [[:aload 0]
[:dup]
[:getfield :this "upcall_ifn" IFn]
(map-indexed
(fn [idx arg]
[[(load-instructions arg) (inc idx)]
(to-object-asm arg)])
arg-types)
[:invokevirtual IFn "invoke" (repeat (inc (count arg-types)) Object)]
(to-prim-asm ret-type)
[(return-for-type ret-type :areturn)]]}]})
(defn- upcall
[f arg-types ret-type]