This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8.c: Change internal variable's type
authorKarl Williamson <khw@cpan.org>
Sat, 28 Dec 2019 05:16:09 +0000 (22:16 -0700)
committerKarl Williamson <khw@cpan.org>
Sat, 4 Jan 2020 04:55:15 +0000 (21:55 -0700)
Packed warnings are 32 bit.  This silences some compiler warnings.

utf8.c

diff --git a/utf8.c b/utf8.c
index 94fcba9..56c83bd 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -1874,7 +1874,7 @@ Perl__utf8n_to_uvchr_msgs_helper(const U8 *s,
         }
 
         while (possible_problems) { /* Handle each possible problem */
-            UV pack_warn = 0;
+            U32 pack_warn = 0;
             char * message = NULL;
             U32 this_flag_bit = 0;