From 2e86fefe6f15877e8c46a45411a9cbd04b26e2e3 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 5 Dec 2017 22:55:11 -0400
Subject: - WIP: Caching.

---
 new-luxc/source/luxc/lang/host/jvm/def.lux  | 10 +++++-----
 new-luxc/source/luxc/lang/host/jvm/inst.lux |  4 ++--
 2 files changed, 7 insertions(+), 7 deletions(-)

(limited to 'new-luxc/source/luxc/lang/host/jvm')

diff --git a/new-luxc/source/luxc/lang/host/jvm/def.lux b/new-luxc/source/luxc/lang/host/jvm/def.lux
index 8e90172d5..8c73c1086 100644
--- a/new-luxc/source/luxc/lang/host/jvm/def.lux
+++ b/new-luxc/source/luxc/lang/host/jvm/def.lux
@@ -266,13 +266,13 @@
          writer)))]
 
   [boolean-field Bool $t.boolean id]
-  [byte-field    Int  $t.byte    host.l2b]
-  [short-field   Int  $t.short   host.l2s]
-  [int-field     Int  $t.int     host.l2i]
+  [byte-field    Int  $t.byte    host.long-to-byte]
+  [short-field   Int  $t.short   host.long-to-short]
+  [int-field     Int  $t.int     host.long-to-int]
   [long-field    Int  $t.long    id]
-  [float-field   Frac $t.float   host.d2f]
+  [float-field   Frac $t.float   host.double-to-float]
   [double-field  Frac $t.double  id]
-  [char-field    Nat  $t.char    (|>> nat-to-int host.l2i host.i2c)]
+  [char-field    Nat  $t.char    (|>> nat-to-int host.long-to-int host.int-to-char)]
   [string-field  Text ($t.class "java.lang.String" (list)) id]
   )
 
diff --git a/new-luxc/source/luxc/lang/host/jvm/inst.lux b/new-luxc/source/luxc/lang/host/jvm/inst.lux
index 5f3711bbd..0b1904020 100644
--- a/new-luxc/source/luxc/lang/host/jvm/inst.lux
+++ b/new-luxc/source/luxc/lang/host/jvm/inst.lux
@@ -128,10 +128,10 @@
          (MethodVisitor::visitLdcInsn [(<prepare> value)]))))]
 
   [boolean Bool id]
-  [int     Int  host.l2i]
+  [int     Int  host.long-to-int]
   [long    Int  id]
   [double  Frac id]
-  [char    Nat  (|>> nat-to-int host.l2i host.i2c)]
+  [char    Nat  (|>> nat-to-int host.long-to-int host.int-to-char)]
   [string  Text id]
   )
 
-- 
cgit v1.2.3