aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/host/jvm
diff options
context:
space:
mode:
authorEduardo Julian2019-05-28 22:14:53 -0400
committerEduardo Julian2019-05-28 22:14:53 -0400
commit8cd61c00de00728759d0362a60dbca8d23e4d8dc (patch)
tree4eaf5b75bea6bd84b1db28eb405539213392a588 /new-luxc/source/luxc/lang/host/jvm
parentf55e513690400cce9e5e17a01a98922d91e086c3 (diff)
Both the old JVM interop and the new JVM interop use the same syntax for array types.
Diffstat (limited to 'new-luxc/source/luxc/lang/host/jvm')
-rw-r--r--new-luxc/source/luxc/lang/host/jvm/def.lux10
-rw-r--r--new-luxc/source/luxc/lang/host/jvm/inst.lux4
2 files changed, 7 insertions, 7 deletions
diff --git a/new-luxc/source/luxc/lang/host/jvm/def.lux b/new-luxc/source/luxc/lang/host/jvm/def.lux
index ce236c905..bf4abc8ed 100644
--- a/new-luxc/source/luxc/lang/host/jvm/def.lux
+++ b/new-luxc/source/luxc/lang/host/jvm/def.lux
@@ -57,11 +57,11 @@
(#static COMPUTE_MAXS int)
(#static COMPUTE_FRAMES int)
(new [int])
- (visit [int int String String String (Array String)] void)
+ (visit [int int String String String [String]] void)
(visitEnd [] void)
(visitField [int String String String Object] FieldVisitor)
- (visitMethod [int String String String (Array String)] MethodVisitor)
- (toByteArray [] (Array byte)))
+ (visitMethod [int String String String [String]] MethodVisitor)
+ (toByteArray [] [byte]))
(def: (string-array values)
(-> (List Text) (Array Text))
@@ -161,7 +161,7 @@
[(def: #export (<name> version visibility config name parameters super interfaces
definitions)
(-> //.Version //.Visibility //.Class-Config Text (List Parameter) Class (List Class) //.Def
- (host.type (Array byte)))
+ (host.type [byte]))
(let [writer (|> (do-to (ClassWriter::new class-computes)
(ClassWriter::visit (version-flag version)
($_ i/+
@@ -188,7 +188,7 @@
(def: #export (interface version visibility config name parameters interfaces
definitions)
(-> //.Version //.Visibility //.Class-Config Text (List Parameter) (List Class) //.Def
- (host.type (Array byte)))
+ (host.type [byte]))
(let [writer (|> (do-to (ClassWriter::new class-computes)
(ClassWriter::visit (version-flag version)
($_ i/+
diff --git a/new-luxc/source/luxc/lang/host/jvm/inst.lux b/new-luxc/source/luxc/lang/host/jvm/inst.lux
index 040f6f04a..aeb9621ef 100644
--- a/new-luxc/source/luxc/lang/host/jvm/inst.lux
+++ b/new-luxc/source/luxc/lang/host/jvm/inst.lux
@@ -122,8 +122,8 @@
(visitLabel [org/objectweb/asm/Label] void)
(visitJumpInsn [int org/objectweb/asm/Label] void)
(visitTryCatchBlock [org/objectweb/asm/Label org/objectweb/asm/Label org/objectweb/asm/Label java/lang/String] void)
- (visitLookupSwitchInsn [org/objectweb/asm/Label (Array int) (Array org/objectweb/asm/Label)] void)
- (visitTableSwitchInsn [int int org/objectweb/asm/Label (Array org/objectweb/asm/Label)] void)
+ (visitLookupSwitchInsn [org/objectweb/asm/Label [int] [org/objectweb/asm/Label]] void)
+ (visitTableSwitchInsn [int int org/objectweb/asm/Label [org/objectweb/asm/Label]] void)
)
## [Insts]