diff options
Diffstat (limited to 'new-luxc/source/luxc/generator/procedure')
| -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 "'.")))) |