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 /perl.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 'perl.h')
| -rw-r--r-- | perl.h | 14 |
1 files changed, 13 insertions, 1 deletions
@@ -1044,8 +1044,20 @@ Free_t Perl_mfree (Malloc_t where); # define IVSIZE LONGSIZE #endif #define IV_DIG (BIT_DIGITS(IVSIZE * 8)) -#define UV_DIG (BIT_DIGITS(IVSIZE * 8)) +#define UV_DIG (BIT_DIGITS(UVSIZE * 8)) +#if (IVSIZE > PTRSIZE) || (UVSIZE > PTRSIZE) +# if PTRSIZE == LONGSIZE +# define PTRV unsigned long +# else +# define PTRV unsigned +# endif +# define PTR_CAST (PTRV) +#else +# define PTRV UV +# define PTR_CAST +#endif + #ifdef USE_LONG_DOUBLE # if defined(HAS_LONG_DOUBLE) && (LONG_DOUBLESIZE > DOUBLESIZE) # define LDoub_t long double |