Remove unnecessary non-optimizing version for jni-value to

parent 11e7cb9b
Pipeline #743 passed with stage
in 8 minutes and 48 seconds
......@@ -262,12 +262,10 @@ Variable argstring
: cstring@1 ( -- index ) cstring1 $@ drop c@ 'A' - cells ;
: field-to, ( xt1 xt2 -- ) >r lit, r> :, ;
: jni-field: ( "forth-name" "name" "signature" -- )
>in @ parse-name 2drop jni-fid >in @ { old-in fid new-in }
:noname postpone drop postpone o fid lit,
cstring@1 'field! + @ compile, postpone ; >r ['] field-to, set-optimizer
cstring@1 'field! + @ compile, postpone ; >r
old-in >in !
: ( o:jobject -- retval ) postpone o fid lit,
cstring@1 'field@ + @ compile, postpone ;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment