diff options
| author | Eduardo Julian | 2017-09-04 21:41:49 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-09-04 21:41:49 -0400 |
| commit | 3add4d6996591897020236b5581f6ca21d4c2af8 (patch) | |
| tree | 07782307913ddc20a6e1d9d430bc9a58c9ae8ffa /new-luxc/source/luxc | |
| parent | 036f3b68983381c6fd2c380f01011ddaf0d8021f (diff) | |
- Now using strict floating point math on the JVM.
Diffstat (limited to 'new-luxc/source/luxc')
| -rw-r--r-- | new-luxc/source/luxc/generator/host/jvm/def.lux | 20 |
1 files changed, 11 insertions, 9 deletions
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>) |