diff options
| author | Eduardo Julian | 2019-09-07 19:26:01 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-09-07 19:26:01 -0400 |
| commit | 747abe180b2669b6af5779dcf39ab5a8b6ed11ed (patch) | |
| tree | 088fca10b0ec3d8f8742060e2cd31a7d1b8c2f9a /new-luxc/source/luxc/lang/host | |
| parent | b63ac226cc2ea843f08f7c72b18d22602462c624 (diff) | |
Got rid of a useless parameter to the INVOKE instructions.
Diffstat (limited to '')
| -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) |