From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 16 Mar 2001 14:10:12 +0000 (+0000)
Subject: Re-apply #9024 as the Storable 1.0.11 (#9069) overwrote
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8ce34d6cde97f1991e183842054670f0539d85d3;p=p5sagit%2Fp5-mst-13.2.git

Re-apply #9024 as the Storable 1.0.11 (#9069) overwrote
a change needed to work around an AIX compiler bug.

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

diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs
index 74fb5a0..647673e 100644
--- a/ext/Storable/Storable.xs
+++ b/ext/Storable/Storable.xs
@@ -4006,15 +4006,19 @@ static SV *retrieve_byte(stcxt_t *cxt, char *cname)
 {
 	SV *sv;
 	int siv;
+	signed char tmp; /* must use temp var to work around
+			    an AIX compiler bug --H.Merijn Brand */
 
 	TRACEME(("retrieve_byte (#%d)", cxt->tagnum));
 
 	GETMARK(siv);
 	TRACEME(("small integer read as %d", (unsigned char) siv));
-	sv = newSViv((unsigned char) siv - 128);
+	tmp = ((unsigned char)siv) - 128;
+	sv = newSViv (tmp);
+
 	SEEN(sv, cname);	/* Associate this new scalar with tag "tagnum" */
 
-	TRACEME(("byte %d", (unsigned char) siv - 128));
+	TRACEME(("byte %d", tmp));
 	TRACEME(("ok (retrieve_byte at 0x%"UVxf")", PTR2UV(sv)));
 
 	return sv;