This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
silence compiler warnings in utf8_mg_pos_cache_update
authorDaniel Dragan <bulk88@hotmail.com>
Sat, 4 Oct 2014 05:39:36 +0000 (01:39 -0400)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 4 Oct 2014 16:38:43 +0000 (09:38 -0700)
commit 73ecc8cb69 added warnings on VC2003, silence them
..\sv.c(7556) : warning C4244: '=' : conversion from 'STRLEN' to 'float', possible loss of data
..\sv.c(7557) : warning C4244: '=' : conversion from 'const STRLEN' to 'float', possible loss of data
..\sv.c(7560) : warning C4244: '=' : conversion from 'const STRLEN' to 'float', possible loss of data
..\sv.c(7561) : warning C4244: '=' : conversion from 'STRLEN' to 'float', possible loss of data

sv.c

diff --git a/sv.c b/sv.c
index 91ca012..94849e9 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -7463,12 +7463,12 @@ S_utf8_mg_pos_cache_update(pTHX_ SV *const sv, MAGIC **const mgp, const STRLEN b
            float b, c, keep_earlier;
            if (byte > cache[3]) {
                /* New position is between the existing pair of pairs.  */
-               b = cache[3];
-               c = byte;
+               b = (float)cache[3];
+               c = (float)byte;
            } else {
                /* New position is before the existing pair of pairs.  */
-               b = byte;
-               c = cache[3];
+               b = (float)byte;
+               c = (float)cache[3];
            }
            keep_earlier = THREEWAY_SQUARE(0, b, c, blen);
            if (byte > cache[3]) {