[truffle] Stub nqp::decont

Raku · Sep 20, 2018 · fc0e8de · fc0e8de
1 parent 7bbcb7b
commit fc0e8de
Show file tree

Hide file tree

Showing 2 changed files with 24 additions and 0 deletions.
diff --git a/src/vm/jvm/Truffle.nqp b/src/vm/jvm/Truffle.nqp
@@ -495,6 +495,8 @@ class QAST::OperationsTruffle {
         TAST.new($OBJ, $ret);
     });
 
+    add_simple_op('decont', $OBJ, [$OBJ]);
+
     %ops<callstatic> := %ops<call>;
 
     add_op('bind', sub ($comp, $node, :$want) {

diff --git a/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPDecontNode.java b/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPDecontNode.java
@@ -0,0 +1,22 @@
+package org.perl6.nqp.truffle.nodes.expression;
+import com.oracle.truffle.api.frame.VirtualFrame;
+import com.oracle.truffle.api.nodes.NodeInfo;
+import org.perl6.nqp.truffle.nodes.NQPNode;
+import org.perl6.nqp.truffle.nodes.NQPObjNode;
+import org.perl6.nqp.dsl.Deserializer;
+
+@NodeInfo(shortName = "decont")
+public final class NQPDecontNode extends NQPObjNode {
+    @Child private NQPNode argNode;
+
+    @Deserializer
+    public NQPDecontNode(NQPNode argNode) {
+        this.argNode = argNode;
+    }
+
+    @Override
+    public Object execute(VirtualFrame frame) {
+        /* TODO - actually decont stuff */
+        return argNode.execute(frame);
+    }
+}