This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8.c: Change variable types so compiles on Solaris
[perl5.git] / utf8.c
diff --git a/utf8.c b/utf8.c
index bbe5e58..a1f6632 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -3350,13 +3350,13 @@ S__to_utf8_case(pTHX_ const UV uv1, const U8 *p,
 
     {
         unsigned int i;
-        const unsigned int * cp_list;
+        const U32 * cp_list;
         U8 * d;
 
         /* 'index' is guaranteed to be non-negative, as this is an inversion
          * map that covers all possible inputs.  See [perl #133365] */
         SSize_t index = _invlist_search(invlist, uv1);
-        IV base = invmap[index];
+        I32 base = invmap[index];
 
         /* The data structures are set up so that if 'base' is non-negative,
          * the case change is 1-to-1; and if 0, the change is to itself */