do not decont NativeRefs, the wonky way

This makes simple tests pass, but should probably get a proper fix. Most likely in MoarVM itself.
Raku · Apr 3, 2015 · b07e78f · b07e78f
1 parent 4edc1eb
commit b07e78f
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/src/vm/moar/QAST/QASTOperationsMAST.nqp b/src/vm/moar/QAST/QASTOperationsMAST.nqp
@@ -2647,10 +2647,12 @@ QAST::MASTOperations.add_core_op('nativecall', -> $qastcomp, $op {
         my int $n := nqp::elems(@args);
         my $obj;
         while $i < $n {
-            $obj := nqp::decont(nqp::atpos(@args, $i));
-            nqp::bindpos(@args, $i, nqp::can($obj, 'cstr')
-                ?? nqp::decont($obj.cstr())
-                !! $obj);
+            $obj := nqp::atpos(@args, $i);
+            if nqp::reprname($obj) ne 'P6opaque' {
+                nqp::bindpos(@args, $i, nqp::can($obj, 'cstr')
+                    ?? nqp::decont($obj.cstr())
+                    !! nqp::decont($obj));
+            }
             $i++;
         }
         @args