This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8.h: Remove redundant cast
authorKarl Williamson <khw@cpan.org>
Wed, 2 Oct 2019 22:40:44 +0000 (16:40 -0600)
committerKarl Williamson <khw@cpan.org>
Sun, 6 Oct 2019 16:18:17 +0000 (10:18 -0600)
The called macro does the cast already

utf8.h

diff --git a/utf8.h b/utf8.h
index 104f18c..5ff24fd 100644 (file)
--- a/utf8.h
+++ b/utf8.h
@@ -475,7 +475,7 @@ encoded as UTF-8.  C<cp> is a native (ASCII or EBCDIC) code point if less than
  * code point in process of being generated */
 #define UTF8_ACCUMULATE(old, new) (__ASSERT_(FITS_IN_8_BITS(new))              \
                                    ((old) << UTF_ACCUMULATION_SHIFT)           \
-                                   | ((NATIVE_UTF8_TO_I8((U8)new))             \
+                                   | ((NATIVE_UTF8_TO_I8(new))                 \
                                        & UTF_CONTINUATION_MASK))
 
 /* This works in the face of malformed UTF-8. */