diff options
| author | Karl Williamson <khw@cpan.org> | 2020-05-29 14:52:16 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2022-06-02 07:08:25 -0600 |
| commit | 46b0a3a2ab5ef2fa5a4227db169aa07bb0d75433 (patch) | |
| tree | 2fd54f1e09ab90b1aeacc20428c47aae39fbbf90 /utf8.h | |
| parent | 20dee45c6d227c4c6bc84be15a9f248a70e1f09a (diff) | |
| download | perl-46b0a3a2ab5ef2fa5a4227db169aa07bb0d75433.tar.gz | |
utf8.h: Add unsigned cast to array index parameter
this makes sure it is never negative
Diffstat (limited to 'utf8.h')
| -rw-r--r-- | utf8.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -659,7 +659,7 @@ uppercase/lowercase/titlecase/fold into. #define TWO_BYTE_UTF8_TO_NATIVE(HI, LO) \ (__ASSERT_(FITS_IN_8_BITS(HI)) \ __ASSERT_(FITS_IN_8_BITS(LO)) \ - __ASSERT_(PL_utf8skip[HI] == 2) \ + __ASSERT_(PL_utf8skip[(U8) HI] == 2) \ __ASSERT_(UTF8_IS_CONTINUATION(LO)) \ UNI_TO_NATIVE(UTF8_ACCUMULATE((NATIVE_UTF8_TO_I8(HI) & UTF_START_MASK(2)), \ (LO)))) |