aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/host/jvm
diff options
context:
space:
mode:
authorEduardo Julian2019-09-07 19:26:01 -0400
committerEduardo Julian2019-09-07 19:26:01 -0400
commit747abe180b2669b6af5779dcf39ab5a8b6ed11ed (patch)
tree088fca10b0ec3d8f8742060e2cd31a7d1b8c2f9a /new-luxc/source/luxc/lang/host/jvm
parentb63ac226cc2ea843f08f7c72b18d22602462c624 (diff)
Got rid of a useless parameter to the INVOKE instructions.
Diffstat (limited to 'new-luxc/source/luxc/lang/host/jvm')
-rw-r--r--new-luxc/source/luxc/lang/host/jvm/inst.lux20
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)