From 3add4d6996591897020236b5581f6ca21d4c2af8 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 4 Sep 2017 21:41:49 -0400
Subject: - Now using strict floating point math on the JVM.

---
 new-luxc/source/luxc/generator/host/jvm/def.lux | 20 +++++++++++---------
 1 file changed, 11 insertions(+), 9 deletions(-)

(limited to 'new-luxc/source/luxc/generator/host')

diff --git a/new-luxc/source/luxc/generator/host/jvm/def.lux b/new-luxc/source/luxc/generator/host/jvm/def.lux
index 42cfa2d68..8931db940 100644
--- a/new-luxc/source/luxc/generator/host/jvm/def.lux
+++ b/new-luxc/source/luxc/generator/host/jvm/def.lux
@@ -25,6 +25,7 @@
   (#static ACC_FINAL int)
   (#static ACC_STATIC int)
   (#static ACC_SYNCHRONIZED int)
+  (#static ACC_STRICT int)
 
   (#static ACC_SUPER int)
   (#static ACC_INTERFACE int)
@@ -91,19 +92,20 @@
     #$;Private   Opcodes.ACC_PRIVATE
     #$;Default   0))
 
-(def: (class-flag config)
+(def: (class-flags config)
   (-> $;Class-Config Int)
   ($_ i.+
       (if (get@ #$;finalC config) Opcodes.ACC_FINAL 0)))
 
-(def: (method-flag config)
+(def: (method-flags config)
   (-> $;Method-Config Int)
   ($_ i.+
+      Opcodes.ACC_STRICT
       (if (get@ #$;staticM config) Opcodes.ACC_STATIC 0)
       (if (get@ #$;finalM config) Opcodes.ACC_FINAL 0)
       (if (get@ #$;synchronizedM config) Opcodes.ACC_SYNCHRONIZED 0)))
 
-(def: (field-flag config)
+(def: (field-flags config)
   (-> $;Field-Config Int)
   ($_ i.+
       (if (get@ #$;staticF config) Opcodes.ACC_STATIC 0)
@@ -154,7 +156,7 @@
                                                 Opcodes.ACC_SUPER
                                                 <flag>
                                                 (visibility-flag visibility)
-                                                (class-flag config))
+                                                (class-flags config))
                                             ($t;binary-name name)
                                             (parameters-signature parameters super interfaces)
                                             (|> super product;left $t;binary-name)
@@ -181,7 +183,7 @@
                                              Opcodes.ACC_SUPER
                                              Opcodes.ACC_INTERFACE
                                              (visibility-flag visibility)
-                                             (class-flag config))
+                                             (class-flags config))
                                          ($t;binary-name name)
                                          (parameters-signature parameters $Object interfaces)
                                          (|> $Object product;left $t;binary-name)
@@ -198,7 +200,7 @@
   (function [writer]
     (let [=method (ClassWriter.visitMethod [($_ i.+
                                                 (visibility-flag visibility)
-                                                (method-flag config))
+                                                (method-flags config))
                                             ($t;binary-name name)
                                             ($t;method-descriptor type)
                                             ($t;method-signature type)
@@ -216,7 +218,7 @@
   (function [writer]
     (let [=method (ClassWriter.visitMethod [($_ i.+
                                                 (visibility-flag visibility)
-                                                (method-flag config)
+                                                (method-flags config)
                                                 Opcodes.ACC_ABSTRACT)
                                             ($t;binary-name name)
                                             ($t;method-descriptor type)
@@ -231,7 +233,7 @@
   (function [writer]
     (let [=field (do-to (ClassWriter.visitField [($_ i.+
                                                      (visibility-flag visibility)
-                                                     (field-flag config))
+                                                     (field-flags config))
                                                  ($t;binary-name name)
                                                  ($t;descriptor type)
                                                  ($t;signature type)
@@ -245,7 +247,7 @@
      (function [writer]
        (let [=field (do-to (ClassWriter.visitField [($_ i.+
                                                         (visibility-flag visibility)
-                                                        (field-flag config))
+                                                        (field-flags config))
                                                     ($t;binary-name name)
                                                     ($t;descriptor <jvm-type>)
                                                     ($t;signature <jvm-type>)
-- 
cgit v1.2.3