diff options
Diffstat (limited to 'new-luxc/source/luxc/lang/translation/jvm/function.jvm.lux')
-rw-r--r-- | new-luxc/source/luxc/lang/translation/jvm/function.jvm.lux | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/new-luxc/source/luxc/lang/translation/jvm/function.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/function.jvm.lux index 062cf5d52..d9ecba1e4 100644 --- a/new-luxc/source/luxc/lang/translation/jvm/function.jvm.lux +++ b/new-luxc/source/luxc/lang/translation/jvm/function.jvm.lux @@ -71,7 +71,7 @@ id)] (|>> ($i.CHECKCAST hostL.function-class) (inputsI start max-args) - ($i.INVOKEVIRTUAL hostL.function-class runtimeT.apply-method (runtimeT.apply-signature max-args) false) + ($i.INVOKEVIRTUAL hostL.function-class runtimeT.apply-method (runtimeT.apply-signature max-args) #0) later-applysI))) (def: (inc-intI by) @@ -114,7 +114,7 @@ $i.DUP ($i.fuse captureI+) argsI - ($i.INVOKESPECIAL class "<init>" (init-method env arity) false))))) + ($i.INVOKESPECIAL class "<init>" (init-method env arity) #0))))) (def: (with-reset class arity env) (-> Text ls.Arity (List Variable) $.Def) @@ -135,7 +135,7 @@ $i.DUP captureI argsI - ($i.INVOKESPECIAL class "<init>" (init-method env arity) false) + ($i.INVOKESPECIAL class "<init>" (init-method env arity) #0) $i.ARETURN)) (|>> ($i.ALOAD +0) $i.ARETURN)))) @@ -155,9 +155,9 @@ (-> ls.Arity Nat $.Inst) (if (n/= +1 arity) (|>> ($i.int 0) - ($i.INVOKESPECIAL hostL.function-class "<init>" function-init-method false)) + ($i.INVOKESPECIAL hostL.function-class "<init>" function-init-method #0)) (|>> ($i.ILOAD (inc env-size)) - ($i.INVOKESPECIAL hostL.function-class "<init>" function-init-method false)))) + ($i.INVOKESPECIAL hostL.function-class "<init>" function-init-method #0)))) (def: (with-init class env arity) (-> Text (List Variable) ls.Arity $.Def) @@ -207,10 +207,10 @@ (|>> ($i.label @label) ($i.ALOAD +0) (when (n/> +0 stage) - ($i.INVOKEVIRTUAL class "reset" (reset-method class) false)) + ($i.INVOKEVIRTUAL class "reset" (reset-method class) #0)) load-partialsI (inputsI +1 apply-arity) - ($i.INVOKEVIRTUAL class "impl" (implementation-method function-arity) false) + ($i.INVOKEVIRTUAL class "impl" (implementation-method function-arity) #0) $i.ARETURN) (i/> arity-over-extent (.int stage)) @@ -218,10 +218,10 @@ args-left (|> apply-arity (n/- args-to-completion))] (|>> ($i.label @label) ($i.ALOAD +0) - ($i.INVOKEVIRTUAL class "reset" (reset-method class) false) + ($i.INVOKEVIRTUAL class "reset" (reset-method class) #0) load-partialsI (inputsI +1 args-to-completion) - ($i.INVOKEVIRTUAL class "impl" (implementation-method function-arity) false) + ($i.INVOKEVIRTUAL class "impl" (implementation-method function-arity) #0) (applysI (inc args-to-completion) args-left) $i.ARETURN)) @@ -241,7 +241,7 @@ load-partialsI (inputsI +1 apply-arity) (nullsI (|> num-partials (n/- apply-arity) (n/- stage))) - ($i.INVOKESPECIAL class "<init>" (init-method env function-arity) false) + ($i.INVOKESPECIAL class "<init>" (init-method env function-arity) #0) $i.ARETURN)) )))) $i.fuse)] @@ -250,7 +250,7 @@ ($i.TABLESWITCH 0 (|> num-partials dec .int) @default @labels) casesI - ($i.INVOKESTATIC hostL.runtime-class "apply_fail" ($t.method (list) #.None (list)) false) + ($i.INVOKESTATIC hostL.runtime-class "apply_fail" ($t.method (list) #.None (list)) #0) $i.NULL $i.ARETURN )))) @@ -319,7 +319,7 @@ (list/map (function (_ chunkI+) (|>> ($i.CHECKCAST hostL.function-class) ($i.fuse chunkI+) - ($i.INVOKEVIRTUAL hostL.function-class runtimeT.apply-method (runtimeT.apply-signature (list.size chunkI+)) false)))) + ($i.INVOKEVIRTUAL hostL.function-class runtimeT.apply-method (runtimeT.apply-signature (list.size chunkI+)) #0)))) $i.fuse)]] (wrap (|>> functionI applyI)))) |