From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 19 Aug 2006 14:34:53 +0000 (+0300)
Subject: bytecode.t failures in Tru64: svtype (enum) is int, not long
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cd47bfdcdcaf11bca8ccb0afadaaa1d23503b9ee;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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",