[truffle] Do IO behinde a partial evaluation boundary

Raku · Jun 26, 2018 · 48bb9eb · 48bb9eb
1 parent b9774f7
commit 48bb9eb
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 2 deletions.
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/io/NQPPrintNode.java b/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/io/NQPPrintNode.java
@@ -1,6 +1,7 @@
 package org.perl6.nqp.truffle.nodes.io;
 
 import com.oracle.truffle.api.frame.VirtualFrame;
+import com.oracle.truffle.api.CompilerDirectives.TruffleBoundary;
 import com.oracle.truffle.api.dsl.NodeChildren;
 import com.oracle.truffle.api.dsl.NodeChild;
 import org.perl6.nqp.truffle.nodes.NQPNode;
@@ -16,7 +17,12 @@ public NQPPrintNode(NQPNode arg) {
     @Override
     public Object execute(VirtualFrame frame) {
         String value = this.arg.executeString(frame);
-        System.out.print(value);
+        doPrint(value);
         return value;
     }
+
+    @TruffleBoundary
+    private void doPrint(String value) {
+        System.out.print(value);
+    }
 }
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/io/NQPSayNode.java b/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/io/NQPSayNode.java
@@ -2,6 +2,7 @@
 
 import org.perl6.nqp.truffle.nodes.NQPNode;
 import com.oracle.truffle.api.frame.VirtualFrame;
+import com.oracle.truffle.api.CompilerDirectives.TruffleBoundary;
 import com.oracle.truffle.api.dsl.NodeChildren;
 import com.oracle.truffle.api.dsl.NodeChild;
 
@@ -16,7 +17,12 @@ public NQPSayNode(NQPNode arg) {
     @Override
     public Object execute(VirtualFrame frame) {
         String value = this.arg.executeString(frame);
-        System.out.println(value);
+        doSay(value);
         return value;
     }
+
+    @TruffleBoundary
+    private void doSay(String value) {
+        System.out.println(value);
+    }
 }