diff options
author | Eduardo Julian | 2019-09-08 21:17:40 -0400 |
---|---|---|
committer | Eduardo Julian | 2019-09-08 21:17:40 -0400 |
commit | fb7a90d4c56d5e4e726f1e83dc951fa46d36ffdb (patch) | |
tree | 31767c55747bdb92ab88400441cbc2d143b0552f /new-luxc/source/luxc/lang/host/jvm/inst.lux | |
parent | 0e2121dbec4f61dc1d9404deb9dd2b3f401ba4df (diff) |
Some fixes.
Diffstat (limited to 'new-luxc/source/luxc/lang/host/jvm/inst.lux')
-rw-r--r-- | new-luxc/source/luxc/lang/host/jvm/inst.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/new-luxc/source/luxc/lang/host/jvm/inst.lux b/new-luxc/source/luxc/lang/host/jvm/inst.lux index 4c9346d64..d5d7cb1fb 100644 --- a/new-luxc/source/luxc/lang/host/jvm/inst.lux +++ b/new-luxc/source/luxc/lang/host/jvm/inst.lux @@ -374,14 +374,14 @@ (do-to visitor (org/objectweb/asm/MethodVisitor::visitLabel @label)))) -(def: #export (array type) +(def: #export (array elementT) (-> (Type Value) Inst) - (case (type.primitive? type) - (#.Left object) - (ANEWARRAY object) + (case (type.primitive? elementT) + (#.Left elementT) + (ANEWARRAY elementT) - (#.Right primitive) - (NEWARRAY primitive))) + (#.Right elementT) + (NEWARRAY elementT))) (template [<name> <boolean> <byte> <short> <int> <long> <float> <double> <char>] [(def: (<name> type) |