From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 18 Nov 2000 00:28:56 +0000 (+0000)
Subject: Sparc 64-bit pack() fix from Jens Hamisch.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2f3a5373a206f22b10d28792b4ecbe362c59c3bd;p=p5sagit%2Fp5-mst-13.2.git

Sparc 64-bit pack() fix from Jens Hamisch.

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

diff --git a/pp.c b/pp.c
index 6001165..7a43092 100644
--- a/pp.c
+++ b/pp.c
@@ -3935,7 +3935,6 @@ PP(pp_unpack)
 	    if (checksum) {
 #if LONGSIZE != SIZE32
 		if (natint) {
-		    long along;
 		    while (len-- > 0) {
 			COPYNN(s, &along, sizeof(long));
 			s += sizeof(long);
@@ -3949,6 +3948,9 @@ PP(pp_unpack)
 #endif
                 {
 		    while (len-- > 0) {
+#if LONGSIZE > SIZE32 && INTSIZE == SIZE32
+			I32 along;
+#endif
 			COPY32(s, &along);
 #if LONGSIZE > SIZE32
 			if (along > 2147483647)
@@ -3967,7 +3969,6 @@ PP(pp_unpack)
 		EXTEND_MORTAL(len);
 #if LONGSIZE != SIZE32
 		if (natint) {
-		    long along;
 		    while (len-- > 0) {
 			COPYNN(s, &along, sizeof(long));
 			s += sizeof(long);
@@ -3980,6 +3981,9 @@ PP(pp_unpack)
 #endif
                 {
 		    while (len-- > 0) {
+#if LONGSIZE > SIZE32 && INTSIZE == SIZE32
+			I32 along;
+#endif
 			COPY32(s, &along);
 #if LONGSIZE > SIZE32
 			if (along > 2147483647)