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 /ext/ByteLoader/bytecode.h | |
| 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 'ext/ByteLoader/bytecode.h')
| -rw-r--r-- | ext/ByteLoader/bytecode.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/ByteLoader/bytecode.h b/ext/ByteLoader/bytecode.h index 1dda7e6af1..5ca0d1afc6 100644 --- a/ext/ByteLoader/bytecode.h +++ b/ext/ByteLoader/bytecode.h @@ -43,7 +43,7 @@ typedef IV IV64; BGET_U32(hi); \ BGET_U32(lo); \ if (sizeof(IV) == 8) \ - arg = (IV) (hi << (sizeof(IV)*4) | lo); \ + arg = ((IV)hi << (sizeof(IV)*4) | (IV)lo); \ else if (((I32)hi == -1 && (I32)lo < 0) \ || ((I32)hi == 0 && (I32)lo >= 0)) { \ arg = (I32)lo; \ |