From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sun, 20 Aug 2006 10:13:12 +0000 (+0000)
Subject: Amendment to change #28739
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=587eea6cfed2506a7cd9c3dadb2bdbd6fcc7382f;p=p5sagit%2Fp5-mst-13.2.git

Amendment to change #28739
p4raw-link: @28739 on //depot/perl: cd47bfdcdcaf11bca8ccb0afadaaa1d23503b9ee

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

diff --git a/ext/B/B/Assembler.pm b/ext/B/B/Assembler.pm
index f9d3589..461b9eb 100644
--- a/ext/B/B/Assembler.pm
+++ b/ext/B/B/Assembler.pm
@@ -151,7 +151,7 @@ sub B::Asmdata::PUT_long {
 }
 
 sub B::Asmdata::PUT_svtype { # svtype is an enum, so an int.
-    $Config{intsize} == 4 ? &B::Asmdata::PUT_I32 : &B::Asmdata::PUT_IV64;
+    $Config{intsize} == 4 ? &B::Asmdata::PUT_U32 : &B::Asmdata::PUT_IV64;
 }
 
 my %unesc = (n => "\n", r => "\r", t => "\t", a => "\a",