Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

rename evalpmc() to packfile() as that's what it returns now

  • Loading branch information...
commit 2e66d673d79cea3337709cd34e86d566e38c76a2 1 parent cf45f3e
@gerdr gerdr authored
View
4 src/HLL/Compiler.pm
@@ -30,7 +30,7 @@ class HLL::Compiler {
method BUILD() {
# Default stages.
- @!stages := nqp::split(' ', 'start parse past post pir evalpmc');
+ @!stages := nqp::split(' ', 'start parse past post pir packfile');
# Command options and usage.
@!cmdoptions := nqp::split(' ', 'e=s help|h target=s dumper=s trace|t=s encoding=s output|o=s combine version|v show-config verbose-config|V stagestats=s? ll-exception rxtrace nqpevent=s profile profile-compile');
@@ -435,7 +435,7 @@ class HLL::Compiler {
self.pirbegin() ~ $source.pir()
}
- method evalpmc($source, *%adverbs) {
+ method packfile($source, *%adverbs) {
my $compiler := pir::compreg__Ps('PIR');
my $packfile := $compiler.compile($source);
for $packfile.subs_by_tag('init') -> $sub { $sub(); }
View
2  src/NQP/World.pm
@@ -240,7 +240,7 @@ class NQP::World is HLL::World {
my $nqpcomp := nqp::getcomp('nqp');
my $post := $nqpcomp.post(QAST::CompUnit.new( :hll('nqp'), $past ));
my $pir := $nqpcomp.pir($post);
- my $compiled := $nqpcomp.evalpmc($pir);
+ my $compiled := $nqpcomp.packfile($pir);
# Fix up any code objects holding stubs with the real compiled thing.
my @all_subs := $compiled.all_subs();
View
4 t/qast/pirt.t
@@ -6,8 +6,8 @@ sub is_pirt_result($producer, $expected, $desc) {
my $pirt := $producer();
my $pir := $pirt.pir();
#say($pir);
- my $pbc := QAST::Compiler.evalpmc($pir).main_sub();
- ok($pbc() eq $expected, $desc);
+ my $sub := QAST::Compiler.packfile($pir).main_sub();
+ ok($sub() eq $expected, $desc);
}
is_pirt_result({
View
2  t/qast/qast.t
@@ -7,7 +7,7 @@ sub compile_qast($qast) {
my $*QAST_BLOCK_NO_CLOSE := 1;
my $pirt := QAST::Compiler.as_post($qast);
my $pir := $pirt.pir();
- QAST::Compiler.evalpmc($pir).main_sub();
+ QAST::Compiler.packfile($pir).main_sub();
}
sub is_qast($qast, $value, $desc) {
try {
Please sign in to comment.
Something went wrong with that request. Please try again.