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.

---
 .../source/luxc/lang/translation/jvm/function.lux  | 24 +++++++++++-----------
 1 file changed, 12 insertions(+), 12 deletions(-)

(limited to 'new-luxc/source/luxc/lang/translation/jvm/function.lux')

diff --git a/new-luxc/source/luxc/lang/translation/jvm/function.lux b/new-luxc/source/luxc/lang/translation/jvm/function.lux
index 9592510ab..56ef21b46 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/function.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/function.lux
@@ -86,7 +86,7 @@
                         function.identity)]
     (|>> (_.CHECKCAST //.$Function)
          (inputsI start max-args)
-         (_.INVOKEVIRTUAL //.$Function runtime.apply-method (runtime.apply-signature max-args) #0)
+         (_.INVOKEVIRTUAL //.$Function runtime.apply-method (runtime.apply-signature max-args))
          later-applysI)))
 
 (def: (inc-intI by)
@@ -129,7 +129,7 @@
                _.DUP
                (_.fuse captureI+)
                argsI
-               (_.INVOKESPECIAL class "<init>" (init-method env arity) #0)))))
+               (_.INVOKESPECIAL class "<init>" (init-method env arity))))))
 
 (def: (with-reset class arity env)
   (-> (Type Class) Arity Environment Def)
@@ -150,7 +150,7 @@
                        _.DUP
                        captureI
                        argsI
-                       (_.INVOKESPECIAL class "<init>" (init-method env arity) #0)
+                       (_.INVOKESPECIAL class "<init>" (init-method env arity))
                        _.ARETURN))
                 (|>> (_.ALOAD 0)
                      _.ARETURN))))
@@ -169,9 +169,9 @@
   (-> Arity Nat Inst)
   (if (n.= 1 arity)
     (|>> (_.int +0)
-         (_.INVOKESPECIAL //.$Function "<init>" function-init-method #0))
+         (_.INVOKESPECIAL //.$Function "<init>" function-init-method))
     (|>> (_.ILOAD (inc env-size))
-         (_.INVOKESPECIAL //.$Function "<init>" function-init-method #0))))
+         (_.INVOKESPECIAL //.$Function "<init>" function-init-method))))
 
 (def: (with-init class env arity)
   (-> (Type Class) Environment Arity Def)
@@ -221,10 +221,10 @@
                                        (|>> (_.label @label)
                                             (_.ALOAD 0)
                                             (when> [(new> (n.> 0 stage) [])]
-                                                   [(_.INVOKEVIRTUAL class "reset" (reset-method class) #0)])
+                                                   [(_.INVOKEVIRTUAL class "reset" (reset-method class))])
                                             load-partialsI
                                             (inputsI 1 apply-arity)
-                                            (_.INVOKEVIRTUAL class "impl" (implementation-method function-arity) #0)
+                                            (_.INVOKEVIRTUAL class "impl" (implementation-method function-arity))
                                             _.ARETURN)
 
                                        (i.> arity-over-extent (.int stage))
@@ -232,10 +232,10 @@
                                              args-left (|> apply-arity (n.- args-to-completion))]
                                          (|>> (_.label @label)
                                               (_.ALOAD 0)
-                                              (_.INVOKEVIRTUAL class "reset" (reset-method class) #0)
+                                              (_.INVOKEVIRTUAL class "reset" (reset-method class))
                                               load-partialsI
                                               (inputsI 1 args-to-completion)
-                                              (_.INVOKEVIRTUAL class "impl" (implementation-method function-arity) #0)
+                                              (_.INVOKEVIRTUAL class "impl" (implementation-method function-arity))
                                               (applysI (inc args-to-completion) args-left)
                                               _.ARETURN))
 
@@ -255,7 +255,7 @@
                                               load-partialsI
                                               (inputsI 1 apply-arity)
                                               (nullsI (|> num-partials (n.- apply-arity) (n.- stage)))
-                                              (_.INVOKESPECIAL class "<init>" (init-method env function-arity) #0)
+                                              (_.INVOKESPECIAL class "<init>" (init-method env function-arity))
                                               _.ARETURN))
                                        ))))
                    _.fuse)]
@@ -264,7 +264,7 @@
                      (_.TABLESWITCH +0 (|> num-partials dec .int)
                                     @default @labels)
                      casesI
-                     (_.INVOKESTATIC runtime.$Runtime "apply_fail" (type.method [(list) type.void (list)]) #0)
+                     (_.INVOKESTATIC runtime.$Runtime "apply_fail" (type.method [(list) type.void (list)]))
                      _.NULL
                      _.ARETURN
                      ))))
@@ -323,7 +323,7 @@
                       (list@map (.function (_ chunkI+)
                                   (|>> (_.CHECKCAST //.$Function)
                                        (_.fuse chunkI+)
-                                       (_.INVOKEVIRTUAL //.$Function runtime.apply-method (runtime.apply-signature (list.size chunkI+)) #0))))
+                                       (_.INVOKEVIRTUAL //.$Function runtime.apply-method (runtime.apply-signature (list.size chunkI+))))))
                       _.fuse)]]
     (wrap (|>> functionI
                applyI))))
-- 
cgit v1.2.3