implement "is rw" params in NativeCall

rakudo · Apr 2, 2015 · 00674de · 00674de
1 parent b4576d7
commit 00674de
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/NativeCall.pm b/lib/NativeCall.pm
@@ -21,6 +21,7 @@ sub param_hash_for(Parameter $p, :$with-typeobj) {
     my Mu $result := nqp::hash();
     my $type := $p.type();
     nqp::bindkey($result, 'typeobj', nqp::decont($type)) if $with-typeobj;
+    nqp::bindkey($result, 'rw', nqp::unbox_i(1)) if $p.rw;
     if $type ~~ Str {
         my $enc := $p.?native_call_encoded() || 'utf8';
         nqp::bindkey($result, 'type', nqp::unbox_s(string_encoding_to_nci_type($enc)));