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
authorKarl Williamson <khw@cpan.org>
Mon, 13 Jan 2020 16:01:08 +0000 (09:01 -0700)
committerKarl Williamson <khw@cpan.org>
Tue, 14 Jan 2020 14:34:56 +0000 (07:34 -0700)
This was made necessary by 40d2776f3505d22a2b1309ae2c3bf28bcb1d9016

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 */