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 (defn- upcall-class
[arg-types ret-type] [arg-types ret-type]
{:flags #{:public :final} {:flags #{:public :final}
:fields [{:name "upcall_ifn" :fields [{:name "upcall_ifn"
:type IFn :type IFn
:flags #{:final}}] :flags #{:final}}]
:methods [{:name :init :methods [{:name :init
:flags #{:public} :flags #{:public}
:desc [IFn :void] :desc [IFn :void]
:emit [[:aload 0] :emit [[:aload 0]
[:dup] [:dup]
[:invokespecial :super :init [:void]] [:invokespecial :super :init [:void]]
[:aload 1] [:aload 1]
[:putfield :this "upcall_ifn" IFn] [:putfield :this "upcall_ifn" IFn]
[:return]]} [:return]]}
{:name :upcall {:name :upcall
:flags #{:public} :flags #{:public}
:desc (conj (mapv java-layout arg-types) :desc (conj (mapv java-layout arg-types)
(java-layout ret-type)) (java-layout ret-type))
:emit [[:aload 0] :emit [[:aload 0]
[:dup] [:dup]
[: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) (inc idx)]
(to-object-asm arg)]) (to-object-asm arg)])
arg-types) arg-types)
[:invokevirtual IFn "invoke" (repeat (inc (count arg-types)) Object)] [:invokevirtual IFn "invoke" (repeat (inc (count arg-types)) Object)]
(to-prim-asm ret-type) (to-prim-asm ret-type)
[(return-for-type ret-type :areturn)]]}]}) [(return-for-type ret-type :areturn)]]}]})
(defn- upcall (defn- upcall
[f arg-types ret-type] [f arg-types ret-type]