Merge branch 'unroll-loops' of git://github.com/rurban/perl-compiler …

…into unroll-loops
rurban · Oct 31, 2012 · 427d506 · 427d506
2 parents c9c47c2 + fdb7991
commit 427d506
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/lib/B/CC.pm b/lib/B/CC.pm
@@ -672,6 +672,9 @@ sub runtime {
 sub init_pp {
   $ppname           = shift;
   $declare_ref      = {};
+  if ($runtime) {
+    $runtime->[-1]{values} = $runtime->[-1]{dbg} = [];
+  }
   runtime("dSP;");
   declare( "I32", "oldsave" );
   map { declare( "SV", "*$_" ) } qw(sv src dst left right);

diff --git a/lib/B/Stackobj.pm b/lib/B/Stackobj.pm
@@ -411,7 +411,7 @@ sub B::Stackobj::Aelem::new {
   my $sv;
   # pop ix before av
   if ($av eq 'POPs' and $ix eq 'POPi') {
-    $sv = "({ oldsave = SvIVX(POPs); AvARRAY(POPs)[oldsave]; })";
+    $sv = "({ ix = POPi; AvARRAY(POPs)[ix]; })";
   } else {
     $sv = "AvARRAY($av)[$ix]";
   }