BC: Do store av_pushx 0, as ix=0 represents Nullsv

This fixes tests 9 and 10
rurban · Nov 2, 2012 · 3f20007 · 3f20007
1 parent 7487063
commit 3f20007
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/lib/B/Assembler.pm b/lib/B/Assembler.pm
@@ -425,7 +425,7 @@ sub asm ($;$$) {
   if ( defined $_[1] ) {
     return
       if $_[1] eq "0"
-        and $_[0] !~ /^(?:ldsv|stsv|newsvx?|newpadlx|av_extend|xav_flags)$/;
+        and $_[0] !~ /^(?:ldsv|stsv|newsvx?|newpadlx|av_pushx?|av_extend|xav_flags)$/;
     return if $_[1] eq "1" and $]>5.007 and $_[0] =~ /^(?:sv_refcnt)$/;
   }
   my ( $insn, $arg, $comment ) = @_;

diff --git a/lib/B/Bytecode.pm b/lib/B/Bytecode.pm
@@ -216,6 +216,7 @@ sub B::OP::ix {
 sub B::SPECIAL::ix {
   my $spec = shift;
   my $ix   = $spectab{$$spec};
+  # ix=0: Nullsv
   defined($ix) ? $ix : do {
     B::Assembler::maxsvix($tix) if $debug{A};
     nice "[SPECIAL $tix]";
@@ -658,6 +659,7 @@ sub B::PAD::bsave {
   $_ = $_->ix for @array; # save the elements
   if ($debug{P}) {
     warn "  ix $ix: ",join(" ",@array),"\n";
+    # ix=0: Nullsv
   }
   $av->B::NULL::bsave($ix);
   # av_extend always allocs 3