Skip to content

Commit 7504bf7

Browse files
committed
[truffle] Implement nqp::null_s
1 parent 47cb3ca commit 7504bf7

File tree

2 files changed

+21
-0
lines changed

2 files changed

+21
-0
lines changed

src/vm/jvm/Truffle.nqp

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -148,6 +148,8 @@ class QAST::OperationsTruffle {
148148

149149
add_simple_op('null', $OBJ, []);
150150

151+
add_simple_op('null_s', $STR, []);
152+
151153
add_simple_op('concat', $STR, [$STR, $STR]);
152154

153155
add_simple_op('lc', $STR, [$STR]);
Lines changed: 19 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,19 @@
1+
package org.perl6.nqp.truffle.nodes.expression;
2+
import com.oracle.truffle.api.frame.VirtualFrame;
3+
import com.oracle.truffle.api.nodes.NodeInfo;
4+
import org.perl6.nqp.truffle.nodes.NQPNode;
5+
import org.perl6.nqp.truffle.nodes.NQPStrNode;
6+
import org.perl6.nqp.dsl.Deserializer;
7+
8+
@NodeInfo(shortName = "null_s")
9+
public final class NQPNullStrNode extends NQPStrNode {
10+
11+
@Deserializer
12+
public NQPNullStrNode() {
13+
}
14+
15+
@Override
16+
public String executeStr(VirtualFrame frame) {
17+
return null;
18+
}
19+
}

0 commit comments

Comments
 (0)