diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-09-06 20:33:43 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-09-06 20:33:43 +0000 |
| commit | 15041a678a73e91c0e4cece2b3fd5f83d5128900 (patch) | |
| tree | cd9546462d8091d12ae56cc28e5157e3b7afb234 /util.c | |
| parent | 1291a1920c36dc45039a0acbf53957ff30304657 (diff) | |
| download | perl-15041a678a73e91c0e4cece2b3fd5f83d5128900.tar.gz | |
Fix UV_SIZEOF to UVSIZE; change the overflow tests
so that they overflow also on 64-bit platforms.
p4raw-id: //depot/cfgperl@4093
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -2829,7 +2829,7 @@ Perl_scan_bin(pTHX_ char *start, I32 len, I32 *retlen) if (!overflowed) rnv = (NV) ruv; if ( ( overflowed && rnv > 4294967295.0) -#if UV_SIZEOF > 4 +#if UVSIZE > 4 || (!overflowed && ruv > 0xffffffff ) #endif ) { @@ -2894,7 +2894,7 @@ Perl_scan_oct(pTHX_ char *start, I32 len, I32 *retlen) if (!overflowed) rnv = (NV) ruv; if ( ( overflowed && rnv > 4294967295.0) -#if UV_SIZEOF > 4 +#if UVSIZE > 4 || (!overflowed && ruv > 0xffffffff ) #endif ) { @@ -2962,7 +2962,7 @@ Perl_scan_hex(pTHX_ char *start, I32 len, I32 *retlen) if (!overflowed) rnv = (NV) ruv; if ( ( overflowed && rnv > 4294967295.0) -#if UV_SIZEOF > 4 +#if UVSIZE > 4 || (!overflowed && ruv > 0xffffffff ) #endif ) { |