Permalink
Browse files

pir::compreg__Ps -> nqp::getcomp

  • Loading branch information...
1 parent 62f5bfa commit 1208febab03abbe7738a7c3b68f433391863f499 @kboga kboga committed Mar 3, 2013
Showing with 3 additions and 3 deletions.
  1. +1 −1 src/Perl6/ModuleLoader.pm
  2. +1 −1 src/Perl6/Ops.pm
  3. +1 −1 src/core/terms.pm
@@ -171,7 +171,7 @@ class Perl6::ModuleLoader {
# Get the compiler and compile the code, then run it
# (which runs the mainline and captures UNIT).
my $?FILES := %chosen<pm>;
- my $eval := pir::compreg__Ps('perl6').compile($source);
+ my $eval := nqp::getcomp('perl6').compile($source);
my $*CTXSAVE := self;
my $*MAIN_CTX;
$eval();
View
@@ -1,4 +1,4 @@
-my $ops := pir::compreg__Ps('QAST').operations;
+my $ops := nqp::getcomp('QAST').operations;
# Perl 6 opcode specific mappings.
$ops.add_hll_pirop_mapping('perl6', 'p6box_i', 'perl6_box_int', 'Pi', :inlinable(1));
View
@@ -109,7 +109,7 @@ sub term:<time>() { nqp::p6box_i(nqp::time_i()) }
my $EXECUTABLE_NAME =
nqp::p6box_s(pir::interpinfo__Si(pir::const::INTERPINFO_EXECUTABLE_FULLNAME));
nqp::bindkey(nqp::who(PROCESS), '$EXECUTABLE_NAME', $EXECUTABLE_NAME);
- my Mu $comp := pir::compreg__Ps('perl6');
+ my Mu $comp := nqp::getcomp('perl6');
my $PROGRAM_NAME = $comp.user-progname();
nqp::bindkey(nqp::who(PROCESS), '$PROGRAM_NAME', $PROGRAM_NAME);

0 comments on commit 1208feb

Please sign in to comment.