From 47344f21a57f17ac209f999d58248caf273d2a74 Mon Sep 17 00:00:00 2001 From: Yitzchak Scott-Thoennes Date: Sun, 20 Aug 2000 18:32:25 -0700 Subject: os2.c fix for use64bitint Message-ID: p4raw-id: //depot/perl@6741 --- os2/os2.c | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'os2') diff --git a/os2/os2.c b/os2/os2.c index 45e1d2fb65..0d66b86000 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); } -- cgit v1.2.1