diff options
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>) |