From: Steve Hay <SteveHay@planit.com>
Date: Mon, 7 Aug 2006 16:21:40 +0000 (+0000)
Subject: Fixups for test failures caused by #28667 and #28668
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ede336cb4d3639b0e0b9304f1dc603f9c89b3e47;p=p5sagit%2Fp5-mst-13.2.git

Fixups for test failures caused by #28667 and #28668

p4raw-id: //depot/perl@28670
---

diff --git a/ext/B/B/Assembler.pm b/ext/B/B/Assembler.pm
index f312273..af23964 100644
--- a/ext/B/B/Assembler.pm
+++ b/ext/B/B/Assembler.pm
@@ -150,6 +150,10 @@ sub B::Asmdata::PUT_long {
     $Config{longsize} == 8 ? &B::Asmdata::PUT_IV64 : &B::Asmdata::PUT_U32;
 }
 
+sub B::Asmdata::PUT_svtype {
+    $Config{longsize} == 8 ? &B::Asmdata::PUT_IV64 : &B::Asmdata::PUT_U32;
+}
+
 my %unesc = (n => "\n", r => "\r", t => "\t", a => "\a",
 	     b => "\b", f => "\f", v => "\013");
 
diff --git a/ext/B/t/assembler.t b/ext/B/t/assembler.t
index fedb6a7..b00c45c 100644
--- a/ext/B/t/assembler.t
+++ b/ext/B/t/assembler.t
@@ -254,6 +254,7 @@ strconst    => [ '""', '"another string"' ], # no NUL
 op_tr_array => [ join( ',', 256, 0..255 ) ],
 PADOFFSET   => undef,
 long        => undef,
+svtype      => undef,
 	      );
 
 # Erronous operand values
@@ -277,7 +278,8 @@ pvcontents  => [ '"spurious arg"' ],
 strconst    => [  'no quote"',  '"with NUL '."\0".' char"' ], # no NUL
 op_tr_array => undef, # op_pv_tr is no longer exactly 256 shorts
 PADOFFSET   => undef,
-long	     => undef,
+long	    => undef,
+svtype	    => undef,
 	      );