diff options
author | Eduardo Julian | 2017-10-26 19:21:17 -0400 |
---|---|---|
committer | Eduardo Julian | 2017-10-26 19:21:17 -0400 |
commit | 64ac2f552ec9e19131fc9671f14d14b0651cd988 (patch) | |
tree | 2fb9bc0a82f2d8e8ffc9036f9cb304394ea7d579 /new-luxc/source/luxc/generator/procedure/host.jvm.lux | |
parent | cb54d53f06cb8d047e1460f0a9db63a594c5baf9 (diff) |
- Fixed some compiler tests.
Diffstat (limited to 'new-luxc/source/luxc/generator/procedure/host.jvm.lux')
-rw-r--r-- | new-luxc/source/luxc/generator/procedure/host.jvm.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/new-luxc/source/luxc/generator/procedure/host.jvm.lux b/new-luxc/source/luxc/generator/procedure/host.jvm.lux index a25c67feb..f908c6c6e 100644 --- a/new-luxc/source/luxc/generator/procedure/host.jvm.lux +++ b/new-luxc/source/luxc/generator/procedure/host.jvm.lux @@ -531,7 +531,7 @@ #;None (wrap (|>. objectI ($i;CHECKCAST class) - ($i;GETFIELD class field ($t;class class (list))))))) + ($i;GETFIELD class field ($t;class unboxed (list))))))) _ (&;fail (format "Wrong syntax for '" proc "'.")))) @@ -557,18 +557,18 @@ _ (undefined))] (wrap (|>. objectI ($i;CHECKCAST class) + $i;DUP valueI ($i;unwrap primitive) - ($i;PUTFIELD class field (#$;Primitive primitive)) - ($i;string &runtime;unit)))) + ($i;PUTFIELD class field (#$;Primitive primitive))))) #;None (wrap (|>. objectI ($i;CHECKCAST class) + $i;DUP valueI - ($i;CHECKCAST class) - ($i;PUTFIELD class field ($t;class class (list))) - ($i;string &runtime;unit))))) + ($i;CHECKCAST unboxed) + ($i;PUTFIELD class field ($t;class unboxed (list))))))) _ (&;fail (format "Wrong syntax for '" proc "'.")))) |