diff options
Diffstat (limited to 'new-luxc/source/luxc/lang/host')
| -rw-r--r-- | new-luxc/source/luxc/lang/host/jvm/inst.lux | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/new-luxc/source/luxc/lang/host/jvm/inst.lux b/new-luxc/source/luxc/lang/host/jvm/inst.lux index 72d7e58ca..4c9346d64 100644 --- a/new-luxc/source/luxc/lang/host/jvm/inst.lux +++ b/new-luxc/source/luxc/lang/host/jvm/inst.lux @@ -296,21 +296,21 @@ ## else (undefined))))))) -(template [<name> <inst>] - [(def: #export (<name> class method-name [method-signature method-descriptor] interface?) - (-> (Type Class) Text [(Signature Method) (Descriptor Method)] Bit Inst) +(template [<name> <inst> <interface?>] + [(def: #export (<name> class method-name [method-signature method-descriptor]) + (-> (Type Class) Text [(Signature Method) (Descriptor Method)] Inst) (function (_ visitor) (do-to visitor (org/objectweb/asm/MethodVisitor::visitMethodInsn (<inst>) (..class-name class) method-name (descriptor.descriptor method-descriptor) - interface?))))] + <interface?>))))] - [INVOKESTATIC org/objectweb/asm/Opcodes::INVOKESTATIC] - [INVOKEVIRTUAL org/objectweb/asm/Opcodes::INVOKEVIRTUAL] - [INVOKESPECIAL org/objectweb/asm/Opcodes::INVOKESPECIAL] - [INVOKEINTERFACE org/objectweb/asm/Opcodes::INVOKEINTERFACE] + [INVOKESTATIC org/objectweb/asm/Opcodes::INVOKESTATIC false] + [INVOKEVIRTUAL org/objectweb/asm/Opcodes::INVOKEVIRTUAL false] + [INVOKESPECIAL org/objectweb/asm/Opcodes::INVOKESPECIAL false] + [INVOKEINTERFACE org/objectweb/asm/Opcodes::INVOKEINTERFACE true] ) (template [<name>] @@ -411,13 +411,13 @@ (def: #export (wrap type) (-> (Type Primitive) Inst) (let [wrapper (type.class (primitive-wrapper type) (list))] - (INVOKESTATIC wrapper "valueOf" (type.method [(list type) wrapper (list)]) #0))) + (INVOKESTATIC wrapper "valueOf" (type.method [(list type) wrapper (list)])))) (def: #export (unwrap type) (-> (Type Primitive) Inst) (let [wrapper (type.class (primitive-wrapper type) (list))] (|>> (CHECKCAST wrapper) - (INVOKEVIRTUAL wrapper (primitive-unwrap type) (type.method [(list) type (list)]) #0)))) + (INVOKEVIRTUAL wrapper (primitive-unwrap type) (type.method [(list) type (list)]))))) (def: #export (fuse insts) (-> (List Inst) Inst) |