SHA256
6
0
forked from pool/perl
2014-03-25 12:23:10 +00:00
committed by Git OBS Bridge
parent 24fdb631b2
commit d2bbaa9eb5

View File

@@ -5,7 +5,7 @@
#ifndef NV_PRESERVES_UV
&& (((UV)1 << NV_PRESERVES_UV_BITS) >
- (UV)(SvIVX(sv) > 0 ? SvIVX(sv) : -SvIVX(sv)))
+ (UV)(SvIVX(sv) > 0 ? SvIVX(sv) : -SvUVX(sv)))
+ (UV)(SvIVX(sv) > 0 ? (UV)SvIVX(sv) : -(UV)SvIVX(sv)))
/* Don't flag it as "accurately an integer" if the number
came from a (by definition imprecise) NV operation, and
we're outside the range of NV integer precision */