diff options
Diffstat (limited to '')
-rw-r--r-- | new-luxc/source/luxc/lang/translation/jvm/function.lux | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/new-luxc/source/luxc/lang/translation/jvm/function.lux b/new-luxc/source/luxc/lang/translation/jvm/function.lux index 9592510ab..56ef21b46 100644 --- a/new-luxc/source/luxc/lang/translation/jvm/function.lux +++ b/new-luxc/source/luxc/lang/translation/jvm/function.lux @@ -86,7 +86,7 @@ function.identity)] (|>> (_.CHECKCAST //.$Function) (inputsI start max-args) - (_.INVOKEVIRTUAL //.$Function runtime.apply-method (runtime.apply-signature max-args) #0) + (_.INVOKEVIRTUAL //.$Function runtime.apply-method (runtime.apply-signature max-args)) later-applysI))) (def: (inc-intI by) @@ -129,7 +129,7 @@ _.DUP (_.fuse captureI+) argsI - (_.INVOKESPECIAL class "<init>" (init-method env arity) #0))))) + (_.INVOKESPECIAL class "<init>" (init-method env arity)))))) (def: (with-reset class arity env) (-> (Type Class) Arity Environment Def) @@ -150,7 +150,7 @@ _.DUP captureI argsI - (_.INVOKESPECIAL class "<init>" (init-method env arity) #0) + (_.INVOKESPECIAL class "<init>" (init-method env arity)) _.ARETURN)) (|>> (_.ALOAD 0) _.ARETURN)))) @@ -169,9 +169,9 @@ (-> Arity Nat Inst) (if (n.= 1 arity) (|>> (_.int +0) - (_.INVOKESPECIAL //.$Function "<init>" function-init-method #0)) + (_.INVOKESPECIAL //.$Function "<init>" function-init-method)) (|>> (_.ILOAD (inc env-size)) - (_.INVOKESPECIAL //.$Function "<init>" function-init-method #0)))) + (_.INVOKESPECIAL //.$Function "<init>" function-init-method)))) (def: (with-init class env arity) (-> (Type Class) Environment Arity Def) @@ -221,10 +221,10 @@ (|>> (_.label @label) (_.ALOAD 0) (when> [(new> (n.> 0 stage) [])] - [(_.INVOKEVIRTUAL class "reset" (reset-method class) #0)]) + [(_.INVOKEVIRTUAL class "reset" (reset-method class))]) load-partialsI (inputsI 1 apply-arity) - (_.INVOKEVIRTUAL class "impl" (implementation-method function-arity) #0) + (_.INVOKEVIRTUAL class "impl" (implementation-method function-arity)) _.ARETURN) (i.> arity-over-extent (.int stage)) @@ -232,10 +232,10 @@ args-left (|> apply-arity (n.- args-to-completion))] (|>> (_.label @label) (_.ALOAD 0) - (_.INVOKEVIRTUAL class "reset" (reset-method class) #0) + (_.INVOKEVIRTUAL class "reset" (reset-method class)) load-partialsI (inputsI 1 args-to-completion) - (_.INVOKEVIRTUAL class "impl" (implementation-method function-arity) #0) + (_.INVOKEVIRTUAL class "impl" (implementation-method function-arity)) (applysI (inc args-to-completion) args-left) _.ARETURN)) @@ -255,7 +255,7 @@ load-partialsI (inputsI 1 apply-arity) (nullsI (|> num-partials (n.- apply-arity) (n.- stage))) - (_.INVOKESPECIAL class "<init>" (init-method env function-arity) #0) + (_.INVOKESPECIAL class "<init>" (init-method env function-arity)) _.ARETURN)) )))) _.fuse)] @@ -264,7 +264,7 @@ (_.TABLESWITCH +0 (|> num-partials dec .int) @default @labels) casesI - (_.INVOKESTATIC runtime.$Runtime "apply_fail" (type.method [(list) type.void (list)]) #0) + (_.INVOKESTATIC runtime.$Runtime "apply_fail" (type.method [(list) type.void (list)])) _.NULL _.ARETURN )))) @@ -323,7 +323,7 @@ (list@map (.function (_ chunkI+) (|>> (_.CHECKCAST //.$Function) (_.fuse chunkI+) - (_.INVOKEVIRTUAL //.$Function runtime.apply-method (runtime.apply-signature (list.size chunkI+)) #0)))) + (_.INVOKEVIRTUAL //.$Function runtime.apply-method (runtime.apply-signature (list.size chunkI+)))))) _.fuse)]] (wrap (|>> functionI applyI)))) |