distinguish between references and pointers

rakudo · Mar 16, 2015 · 43bf4fb · 43bf4fb
1 parent bda0796
commit 43bf4fb
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/lib/NativeCall.pm b/lib/NativeCall.pm
@@ -253,6 +253,13 @@ multi trait_mod:<is>(Parameter $p, :$cpp-const!) is export(:DEFAULT, :traits) {
     $p does CPPConst;
 }
 
+role CPPRef {
+    method cpp-ref() { 1 }
+}
+multi trait_mod:<is>(Parameter $p, :$cpp-ref!) is export(:DEFAULT, :traits) {
+    $p does CPPRef;
+}
+
 multi refresh($obj) is export(:DEFAULT, :utils) {
     nqp::nativecallrefresh($obj);
     1;