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 (file)
--- 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 (file)
--- 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,
              );