aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/source/luxc')
-rw-r--r--new-luxc/source/luxc/generator/host/jvm/def.lux20
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>)