diff options
author | Lukas Mai <l.mai@web.de> | 2017-10-13 22:34:25 +0200 |
---|---|---|
committer | Lukas Mai <l.mai@web.de> | 2017-10-13 22:34:25 +0200 |
commit | 1a1e0afc4e5562c1b92b035527b7024adc8a24f0 (patch) | |
tree | 01ad3f0c98230e4329f42e7562cda6b5d93740a3 /sv.c | |
parent | 2145f4b6c8a8eeaef0d72474b6501fae59c1c666 (diff) | |
download | perl-1a1e0afc4e5562c1b92b035527b7024adc8a24f0.tar.gz |
avoid gcc 7 warning about * in boolean context
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -9004,7 +9004,7 @@ Perl_sv_inc_nomg(pTHX_ SV *const sv) if (flags & SVp_NOK) { const NV was = SvNVX(sv); if (LIKELY(!Perl_isinfnan(was)) && - NV_OVERFLOWS_INTEGERS_AT && + NV_OVERFLOWS_INTEGERS_AT != 0.0 && was >= NV_OVERFLOWS_INTEGERS_AT) { /* diag_listed_as: Lost precision when %s %f by 1 */ Perl_ck_warner(aTHX_ packWARN(WARN_IMPRECISION), @@ -9187,7 +9187,7 @@ Perl_sv_dec_nomg(pTHX_ SV *const sv) { const NV was = SvNVX(sv); if (LIKELY(!Perl_isinfnan(was)) && - NV_OVERFLOWS_INTEGERS_AT && + NV_OVERFLOWS_INTEGERS_AT != 0.0 && was <= -NV_OVERFLOWS_INTEGERS_AT) { /* diag_listed_as: Lost precision when %s %f by 1 */ Perl_ck_warner(aTHX_ packWARN(WARN_IMPRECISION), |