This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
os2.c fix for use64bitint
authorYitzchak Scott-Thoennes <sthoenna@efn.org>
Mon, 21 Aug 2000 01:32:25 +0000 (18:32 -0700)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 21 Aug 2000 13:33:01 +0000 (13:33 +0000)
Message-ID: <ZkOo5gzkgWEb092yn@efn.org>

p4raw-id: //depot/perl@6741

os2/os2.c

index 45e1d2f..0d66b86 100644 (file)
--- 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);
     }