diff options
| author | Robin Barker <RMBarker@cpan.org> | 1999-09-07 13:30:18 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-09-07 12:49:15 +0000 |
| commit | 427181846486e3aa5034a647dc1922377185f4c0 (patch) | |
| tree | 77214104959f745247da88a35a1ff858eede7f44 /pp_hot.c | |
| parent | f8d4b9aa3df7268ea9f1bdecfb17864f5f71ae93 (diff) | |
| download | perl-427181846486e3aa5034a647dc1922377185f4c0.tar.gz | |
Fix pointer casts.
To: perl5-porters@perl.org
Subject: [ID 19990907.004] [PATCH perl5.005_61] compiler warnings with
-Duse64bits
Message-Id: <199909071130.MAA11435@tempest.npl.co.uk>
p4raw-id: //depot/cfgperl@4100
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1588,7 +1588,7 @@ PP(pp_iter) } LvTARG(lv) = SvREFCNT_inc(av); LvTARGOFF(lv) = cx->blk_loop.iterix; - LvTARGLEN(lv) = (UV) -1; + LvTARGLEN(lv) = (STRLEN)UV_MAX; sv = (SV*)lv; } @@ -2112,7 +2112,7 @@ S_get_db_sub(pTHX_ SV **svp, CV *cv) SvUPGRADE(dbsv, SVt_PVIV); SvIOK_on(dbsv); SAVEIV(SvIVX(dbsv)); - SvIVX(dbsv) = (IV)cv; /* Do it the quickest way */ + SvIVX(dbsv) = (IV)PTR_CAST cv; /* Do it the quickest way */ } if (CvXSUB(cv)) |