summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
3160b44)
Though non-straddling, make the NV_MAX_EXP case identical.
hexfp_exp += *h - '0';
#ifdef NV_MIN_EXP
if (negexp
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");
Perl_ck_warner(aTHX_ packWARN(WARN_OVERFLOW),
"Hexadecimal float: exponent underflow");
- 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");
"Hexadecimal float: exponent overflow");