diff options
| author | Andy Broad <andy@broad.ology.org.uk> | 2015-08-25 20:04:01 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2015-08-27 08:09:47 -0400 |
| commit | 8c1ed856816d90f9c4ab9da34ff97b9caf4d29c4 (patch) | |
| tree | b12de3fdf64ee81437093fc55afd545ed738a8c4 /toke.c | |
| parent | 3160b44a75aed79c4961134279bf776ca5bff28b (diff) | |
| download | perl-8c1ed856816d90f9c4ab9da34ff97b9caf4d29c4.tar.gz | |
The #ifdef NV_MIN_EXP straddled the if () braces.
Though non-straddling, make the NV_MAX_EXP case identical.
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 18 |
1 files changed, 7 insertions, 11 deletions
@@ -10347,24 +10347,20 @@ Perl_scan_num(pTHX_ const char *start, YYSTYPE* lvalp) hexfp_exp += *h - '0'; #ifdef NV_MIN_EXP if (negexp - && -hexfp_exp < NV_MIN_EXP - 1) - { + && -hexfp_exp < NV_MIN_EXP - 1) { Perl_ck_warner(aTHX_ packWARN(WARN_OVERFLOW), "Hexadecimal float: exponent underflow"); -#endif break; } - else { +#endif #ifdef NV_MAX_EXP - if (!negexp - && hexfp_exp > NV_MAX_EXP - 1) - { - Perl_ck_warner(aTHX_ packWARN(WARN_OVERFLOW), + if (!negexp + && hexfp_exp > NV_MAX_EXP - 1) { + Perl_ck_warner(aTHX_ packWARN(WARN_OVERFLOW), "Hexadecimal float: exponent overflow"); - break; - } -#endif + break; } +#endif } h++; } |