rpm/perl
SHA256
1
0
Fork 0
forked from pool/perl
Code Pull Requests Activity

adapt overflow patch

Browse Source 
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=109
This commit is contained in:
Michael Schröder 2014-03-25 12:23:10 +00:00 committed by Git OBS Bridge
parent 24fdb631b2
commit d2bbaa9eb5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
perl-5.18.2-overflow.diff
View File

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