diff options
author | Eduardo Julian | 2017-06-30 18:43:07 -0400 |
---|---|---|
committer | Eduardo Julian | 2017-06-30 18:43:07 -0400 |
commit | a79927892174c3564c83a0e741e5cc0aaaeeb37c (patch) | |
tree | 780936163414dd6105cf00bb5debb8ee9a7a518a /new-luxc/source/luxc/generator/runtime.jvm.lux | |
parent | 36cf0c61991bda395e224fa2d435fa6b6f5090e5 (diff) |
- WIP: Added generation for common procedures.
Diffstat (limited to '')
-rw-r--r-- | new-luxc/source/luxc/generator/runtime.jvm.lux | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/new-luxc/source/luxc/generator/runtime.jvm.lux b/new-luxc/source/luxc/generator/runtime.jvm.lux index 5c6ce29a6..8c0b294c1 100644 --- a/new-luxc/source/luxc/generator/runtime.jvm.lux +++ b/new-luxc/source/luxc/generator/runtime.jvm.lux @@ -39,6 +39,10 @@ (visitEnd [] void) (toByteArray [] Byte-Array)) +(def: #export runtime-name Text "LuxRT") +(def: #export function-name Text "LuxFunction") +(def: #export unit Text "\u0000") + (def: $Object $;Type ($t;class "java.lang.Object" (list))) (def: add-adt-methods @@ -65,9 +69,9 @@ #let [writer (|> (do-to (ClassWriter.new ClassWriter.COMPUTE_MAXS) (ClassWriter.visit [&common;bytecode-version ($_ i.+ Opcodes.ACC_PUBLIC Opcodes.ACC_FINAL Opcodes.ACC_SUPER) - &common;runtime-class-name (host;null) + runtime-name (host;null) "java/lang/Object" (host;null)])) add-adt-methods) bytecode (ClassWriter.toByteArray [] (do-to writer (ClassWriter.visitEnd [])))] - _ (&common;store-class &common;runtime-class-name bytecode)] + _ (&common;store-class runtime-name bytecode)] (wrap bytecode))) |