From: Yitzchak Scott-Thoennes <sthoenna@efn.org>
Date: Mon, 21 Aug 2000 01:32:25 +0000 (-0700)
Subject: os2.c fix for use64bitint
X-Git-Tag: accepted/trunk/20130322.191538~34440
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=47344f21a57f17ac209f999d58248caf273d2a74;p=platform%2Fupstream%2Fperl.git

os2.c fix for use64bitint
Message-ID: <ZkOo5gzkgWEb092yn@efn.org>

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

diff --git a/os2/os2.c b/os2/os2.c
index 45e1d2f..0d66b86 100644
--- a/os2/os2.c
+++ b/os2/os2.c
@@ -1718,17 +1718,20 @@ XS(XS_OS2_Process_Messages)
     {
 	bool  force = SvOK(ST(0));
 	unsigned long   cnt;
-	I32 *cntp = NULL;
 
 	if (items == 2) {
+	    I32 cntr;
 	    SV *sv = ST(1);
 	    int fake = SvIV(sv);	/* Force SvIVX */
 	    
 	    if (!SvIOK(sv))
 		Perl_croak_nocontext("Can't upgrade count to IV");
-	    cntp = &SvIVX(sv);
-	}
-	cnt =  Perl_Process_Messages(force, cntp);
+	    cntr = SvIVX(sv);
+	    cnt =  Perl_Process_Messages(force, &cntr);
+	    SvIVX(sv) = cntr;
+	} else {
+	    cnt =  Perl_Process_Messages(force, NULL);
+        }
 	ST(0) = sv_newmortal();
 	sv_setiv(ST(0), cnt);
     }