This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
doop.c, op.c: Silence some compiler warnings
authorKarl Williamson <khw@cpan.org>
Sat, 16 Nov 2019 05:23:44 +0000 (22:23 -0700)
committerKarl Williamson <khw@cpan.org>
Sat, 16 Nov 2019 05:25:57 +0000 (22:25 -0700)
doop.c
op.c

diff --git a/doop.c b/doop.c
index 3e62c8c..f2e3806 100644 (file)
--- a/doop.c
+++ b/doop.c
@@ -430,7 +430,7 @@ S_do_trans_invmap(pTHX_ SV * const sv, AV * const invmap)
          * this particular input string will grow.  However, the compilation
          * calculated the maximum expansion possible.  Use that to allocale
          * based on the worst case scenario. */
-       Newx(d, len * max_expansion + 1, U8);
+       Newx(d, (STRLEN) (len * max_expansion + 1 + 1), U8);
        d0 = d;
     }
 
@@ -464,7 +464,7 @@ S_do_trans_invmap(pTHX_ SV * const sv, AV * const invmap)
 
         if (to == (UV) TR_UNLISTED) { /* Just copy the unreplaced character */
             if (UVCHR_IS_INVARIANT(from) || ! out_is_utf8) {
-                *d++ = from;
+                *d++ = (U8) from;
             }
             else if (SvUTF8(sv)) {
                 Move(s, d, s_len, U8);
@@ -511,7 +511,7 @@ S_do_trans_invmap(pTHX_ SV * const sv, AV * const invmap)
                     matches = 0;
                     goto restart;
                 }
-                *d++ = to;
+                *d++ = (U8) to;
             }
         }
 
diff --git a/op.c b/op.c
index 499e73b..e5fbe6f 100644 (file)
--- a/op.c
+++ b/op.c
@@ -7740,8 +7740,8 @@ S_pmtrans(pTHX_ OP *o, OP *expr, OP *repl)
 
         for (i = 0; i < len; i++) {
             STATIC_ASSERT_DECL(TR_SPECIAL_HANDLING == TR_DELETE);
-            short upper = i >= len - 1 ? 256 : t_array[i+1];
-            short to = r_map[i];
+            short upper = i >= len - 1 ? 256 : (short) t_array[i+1];
+            short to = (short) r_map[i];
             short j;
             bool do_increment = TRUE;
 
@@ -7750,7 +7750,7 @@ S_pmtrans(pTHX_ OP *o, OP *expr, OP *repl)
 
             /* Set up the map */
             if (to == (short) TR_SPECIAL_HANDLING && ! del) {
-                to = final_map;
+                to = (short) final_map;
                 do_increment = FALSE;
             }
             else if (to < 0) {
@@ -7759,7 +7759,7 @@ S_pmtrans(pTHX_ OP *o, OP *expr, OP *repl)
 
             /* Create a map for everything in this range.  The value increases
              * except for the special cases */
-            for (j = t_array[i]; j < upper; j++) {
+            for (j = (short) t_array[i]; j < upper; j++) {
                 tbl->map[j] = to;
                 if (do_increment) to++;
             }