diff options
author | Steve Hay <SteveHay@planit.com> | 2006-08-07 16:21:40 +0000 |
---|---|---|
committer | Steve Hay <SteveHay@planit.com> | 2006-08-07 16:21:40 +0000 |
commit | ede336cb4d3639b0e0b9304f1dc603f9c89b3e47 (patch) | |
tree | c38a95f3dace96d3da15d27b35fb798152b9f41c /ext | |
parent | 9289f461126f104eef437e7c6d2f1f640f935646 (diff) | |
download | perl-ede336cb4d3639b0e0b9304f1dc603f9c89b3e47.tar.gz |
Fixups for test failures caused by #28667 and #28668
p4raw-id: //depot/perl@28670
Diffstat (limited to 'ext')
-rw-r--r-- | ext/B/B/Assembler.pm | 4 | ||||
-rw-r--r-- | ext/B/t/assembler.t | 4 |
2 files changed, 7 insertions, 1 deletions
diff --git a/ext/B/B/Assembler.pm b/ext/B/B/Assembler.pm index f312273ce3..af239643ee 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 fedb6a72ff..b00c45cecd 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, ); |