Fix HLLCompiler to use PackfileView. This fixes several tests, though…

… it does add in the weirdness that the .evalpmc() method doesn't do anything with Eval.
parrot · Apr 20, 2012 · d61cabb · d61cabb
1 parent 843d395
commit d61cabb
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 0 deletions.
diff --git a/compilers/pct/src/PCT/HLLCompiler.pir b/compilers/pct/src/PCT/HLLCompiler.pir
@@ -555,6 +555,7 @@ Transform PAST C<source> into POST.
 
     $P0 = compreg 'PIR'
     $P1 = $P0(source)
+    $P1 = $P1.'main_sub'()
     .return($P1)
 .end
 

diff --git a/compilers/pct/src/POST/Compiler.pir b/compilers/pct/src/POST/Compiler.pir
@@ -433,9 +433,14 @@ the sub.
     compiler = compreg $S0
     $I0 = isa compiler, 'Sub'
     if $I0 goto compiler_sub
+    $I0 = isa compiler, 'PackfileView'
+    if $I0 goto compiler_packfileview
     .tailcall compiler.'compile'(source, options :flat :named)
   compiler_sub:
     .tailcall compiler(source, options :flat :named)
+  compiler_packfileview:
+    $P0 = compiler.'main_sub'()
+    .tailcall $P0(source, options :flat :named)
 .end
 
 =back

diff --git a/t/profiling/profiling.t b/t/profiling/profiling.t
@@ -178,6 +178,7 @@ CODE
     push_eh eh
 
     f = comp(s)
+    f = f."main_sub"()
     f()
 
     pop_eh