Tweak for Cray-friendliness from Nicholas Clark.

p4raw-id: //depot/perl@12892

diff --git a/sv.c b/sv.c
index 74c3450..19ce50a 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -5868,7 +5868,7 @@ Perl_sv_inc(pTHX_ register SV *sv)
 #endif
        if (SvIsUV(sv)) {
            if (SvUVX(sv) == UV_MAX)
-               sv_setnv(sv, (NV)UV_MAX + 1.0);
+               sv_setnv(sv, UV_MAX_P1);
            else
                (void)SvIOK_only_UV(sv);
                ++SvUVX(sv);