Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Replace some Q:PIR with the various new ops.

  • Loading branch information...
commit a01efec6c084546ade009426edd098dcb1636a8f 1 parent f80be32
@jnthn jnthn authored
View
6 src/HLL/Compiler.pm
@@ -174,11 +174,7 @@ class HLL::Compiler {
}
method ctxsave() {
- $*MAIN_CTX :=
- Q:PIR {
- $P0 = getinterp
- %r = $P0['context';1]
- };
+ $*MAIN_CTX := nqp::ctxcaller(nqp::ctx());
$*CTXSAVE := 0;
}
View
5 src/HLL/Grammar.pm
@@ -323,10 +323,7 @@ of the match.
method FAILGOAL($goal, $dba?) {
unless $dba {
- $dba := ~Q:PIR{
- %r = getinterp
- %r = %r['sub';1]
- };
+ $dba := ~nqp::callercode();
}
self.panic("Unable to parse expression in $dba; couldn't find final $goal");
}
View
6 src/ModuleLoader.pm
@@ -32,11 +32,7 @@ knowhow ModuleLoader {
}
method ctxsave() {
- $*MAIN_CTX :=
- Q:PIR {
- $P0 = getinterp
- %r = $P0['context';1]
- };
+ $*MAIN_CTX := nqp::ctxcaller(nqp::ctx());
$*CTXSAVE := 0;
}
View
10 src/QRegex/Cursor.nqp
@@ -82,10 +82,7 @@ role NQPCursorRole is export {
method !cursor_start() {
my $new := nqp::create(self);
- my $sub := Q:PIR {
- $P0 = getinterp
- %r = $P0['sub';1]
- };
+ my $sub := nqp::callercode();
nqp::bindattr($new, $?CLASS, '$!orig', $!orig);
nqp::bindattr($new, $?CLASS, '$!regexsub', nqp::ifnull(nqp::getcodeobj($sub), $sub));
if nqp::defined($!restart) {
@@ -465,10 +462,7 @@ role NQPCursorRole is export {
method FAILGOAL($goal, $dba?) {
unless $dba {
- $dba := ~Q:PIR{
- %r = getinterp
- %r = %r['sub';1]
- };
+ $dba := ~nqp::callercode();
}
nqp::die("Unable to parse expression in $dba; couldn't find final $goal");
}
Please sign in to comment.
Something went wrong with that request. Please try again.