From 1137f61adeb416d89436a6849a07f28c8f329fc1 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 14 Jul 2018 03:23:38 -0400
Subject: Switched to using new bit syntax in new-luxc.

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

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

diff --git a/new-luxc/source/luxc/lang/translation/jvm/function.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/function.jvm.lux
index 062cf5d52..d9ecba1e4 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/function.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/function.jvm.lux
@@ -71,7 +71,7 @@
                         id)]
     (|>> ($i.CHECKCAST hostL.function-class)
          (inputsI start max-args)
-         ($i.INVOKEVIRTUAL hostL.function-class runtimeT.apply-method (runtimeT.apply-signature max-args) false)
+         ($i.INVOKEVIRTUAL hostL.function-class runtimeT.apply-method (runtimeT.apply-signature max-args) #0)
          later-applysI)))
 
 (def: (inc-intI by)
@@ -114,7 +114,7 @@
                $i.DUP
                ($i.fuse captureI+)
                argsI
-               ($i.INVOKESPECIAL class "<init>" (init-method env arity) false)))))
+               ($i.INVOKESPECIAL class "<init>" (init-method env arity) #0)))))
 
 (def: (with-reset class arity env)
   (-> Text ls.Arity (List Variable) $.Def)
@@ -135,7 +135,7 @@
                       $i.DUP
                       captureI
                       argsI
-                      ($i.INVOKESPECIAL class "<init>" (init-method env arity) false)
+                      ($i.INVOKESPECIAL class "<init>" (init-method env arity) #0)
                       $i.ARETURN))
                (|>> ($i.ALOAD +0)
                     $i.ARETURN))))
@@ -155,9 +155,9 @@
   (-> ls.Arity Nat $.Inst)
   (if (n/= +1 arity)
     (|>> ($i.int 0)
-         ($i.INVOKESPECIAL hostL.function-class "<init>" function-init-method false))
+         ($i.INVOKESPECIAL hostL.function-class "<init>" function-init-method #0))
     (|>> ($i.ILOAD (inc env-size))
-         ($i.INVOKESPECIAL hostL.function-class "<init>" function-init-method false))))
+         ($i.INVOKESPECIAL hostL.function-class "<init>" function-init-method #0))))
 
 (def: (with-init class env arity)
   (-> Text (List Variable) ls.Arity $.Def)
@@ -207,10 +207,10 @@
                                        (|>> ($i.label @label)
                                             ($i.ALOAD +0)
                                             (when (n/> +0 stage)
-                                                  ($i.INVOKEVIRTUAL class "reset" (reset-method class) false))
+                                                  ($i.INVOKEVIRTUAL class "reset" (reset-method class) #0))
                                             load-partialsI
                                             (inputsI +1 apply-arity)
-                                            ($i.INVOKEVIRTUAL class "impl" (implementation-method function-arity) false)
+                                            ($i.INVOKEVIRTUAL class "impl" (implementation-method function-arity) #0)
                                             $i.ARETURN)
 
                                        (i/> arity-over-extent (.int stage))
@@ -218,10 +218,10 @@
                                              args-left (|> apply-arity (n/- args-to-completion))]
                                          (|>> ($i.label @label)
                                               ($i.ALOAD +0)
-                                              ($i.INVOKEVIRTUAL class "reset" (reset-method class) false)
+                                              ($i.INVOKEVIRTUAL class "reset" (reset-method class) #0)
                                               load-partialsI
                                               (inputsI +1 args-to-completion)
-                                              ($i.INVOKEVIRTUAL class "impl" (implementation-method function-arity) false)
+                                              ($i.INVOKEVIRTUAL class "impl" (implementation-method function-arity) #0)
                                               (applysI (inc args-to-completion) args-left)
                                               $i.ARETURN))
 
@@ -241,7 +241,7 @@
                                               load-partialsI
                                               (inputsI +1 apply-arity)
                                               (nullsI (|> num-partials (n/- apply-arity) (n/- stage)))
-                                              ($i.INVOKESPECIAL class "<init>" (init-method env function-arity) false)
+                                              ($i.INVOKESPECIAL class "<init>" (init-method env function-arity) #0)
                                               $i.ARETURN))
                                        ))))
                    $i.fuse)]
@@ -250,7 +250,7 @@
                     ($i.TABLESWITCH 0 (|> num-partials dec .int)
                                     @default @labels)
                     casesI
-                    ($i.INVOKESTATIC hostL.runtime-class "apply_fail" ($t.method (list) #.None (list)) false)
+                    ($i.INVOKESTATIC hostL.runtime-class "apply_fail" ($t.method (list) #.None (list)) #0)
                     $i.NULL
                     $i.ARETURN
                     ))))
@@ -319,7 +319,7 @@
                       (list/map (function (_ chunkI+)
                                   (|>> ($i.CHECKCAST hostL.function-class)
                                        ($i.fuse chunkI+)
-                                       ($i.INVOKEVIRTUAL hostL.function-class runtimeT.apply-method (runtimeT.apply-signature (list.size chunkI+)) false))))
+                                       ($i.INVOKEVIRTUAL hostL.function-class runtimeT.apply-method (runtimeT.apply-signature (list.size chunkI+)) #0))))
                       $i.fuse)]]
     (wrap (|>> functionI
                applyI))))
-- 
cgit v1.2.3