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 | 3a9e6e4cb19f366cb7c96194abe3c6f3d66e7e42 (patch) | |
| tree | 5f4b9cc3c1fc77afdce19b3d5f3cd6ddd8be17d6 /os2 | |
| parent | 409321c7fa542740b400b1305be2ec667ec5d632 (diff) | |
| download | perl-3a9e6e4cb19f366cb7c96194abe3c6f3d66e7e42.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); } |