From 747abe180b2669b6af5779dcf39ab5a8b6ed11ed Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Sat, 7 Sep 2019 19:26:01 -0400 Subject: Got rid of a useless parameter to the INVOKE instructions. --- new-luxc/source/luxc/lang/host/jvm/inst.lux | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'new-luxc/source/luxc/lang/host/jvm') 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 [ ] - [(def: #export ( class method-name [method-signature method-descriptor] interface?) - (-> (Type Class) Text [(Signature Method) (Descriptor Method)] Bit Inst) +(template [ ] + [(def: #export ( 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 () (..class-name class) method-name (descriptor.descriptor method-descriptor) - 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 [] @@ -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) -- cgit v1.2.3