From 47344f21a57f17ac209f999d58248caf273d2a74 Mon Sep 17 00:00:00 2001 From: Yitzchak Scott-Thoennes Date: Sun, 20 Aug 2000 18:32:25 -0700 Subject: [PATCH] os2.c fix for use64bitint Message-ID: p4raw-id: //depot/perl@6741 --- os2/os2.c | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) 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); } -- 2.7.4