diff options
| author | Yitzchak Scott-Thoennes <sthoenna@efn.org> | 2000-08-20 18:32:25 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-21 13:33:01 +0000 |
| commit | 47344f21a57f17ac209f999d58248caf273d2a74 (patch) | |
| tree | 5f4b9cc3c1fc77afdce19b3d5f3cd6ddd8be17d6 /os2 | |
| parent | f9a1036d234a761c33445663d282383d453f7c5f (diff) | |
| download | perl-47344f21a57f17ac209f999d58248caf273d2a74.tar.gz | |
os2.c fix for use64bitint
Message-ID: <ZkOo5gzkgWEb092yn@efn.org>
p4raw-id: //depot/perl@6741
Diffstat (limited to 'os2')
| -rw-r--r-- | os2/os2.c | 11 |
1 files changed, 7 insertions, 4 deletions
@@ -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); } |