This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Cast away Solaris Studio 12.3 warning.
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 4 Feb 2016 14:54:53 +0000 (09:54 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 4 Feb 2016 14:54:53 +0000 (09:54 -0500)
"pp.c", line 3220: warning: initializer will be sign-extended: -2147483648

pp.c

diff --git a/pp.c b/pp.c
index 85a33f4..4fcc577 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -3217,7 +3217,7 @@ PP(pp_abs)
            } else {
              /* 2s complement assumption. Also, not really needed as
                 IV_MIN and -IV_MIN should both be %100...00 and NV-able  */
-             SETu(IV_MIN);
+             SETu((UV)IV_MIN);
            }
          }
        }