bytecode.t failures in Tru64: svtype (enum) is int, not long

Message-Id: <200608191134.k7JBYroK518962@kosh.hut.fi>

p4raw-id: //depot/perl@28739

diff --git a/ext/B/B/Assembler.pm b/ext/B/B/Assembler.pm
index af23964..f9d3589 100644 (file)
--- a/ext/B/B/Assembler.pm
+++ b/ext/B/B/Assembler.pm
@@ -150,8 +150,8 @@ 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;
+sub B::Asmdata::PUT_svtype { # svtype is an enum, so an int.
+    $Config{intsize} == 4 ? &B::Asmdata::PUT_I32 : &B::Asmdata::PUT_IV64;
 }
 
 my %unesc = (n => "\n", r => "\r", t => "\t", a => "\a",