Enhance and rename is_utf8_char_slow()

[perl5.git] / proto.h

diff --git a/proto.h b/proto.h
index ec99684..c20986b 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -3810,11 +3810,11 @@ STATIC SV *     S_incpush_if_exists(pTHX_ AV *const av, SV *dir, SV *const stem);
 #  endif
 #endif
 #if !defined(PERL_NO_INLINE_FUNCTIONS)
-PERL_CALLCONV STRLEN   Perl__is_utf8_char_slow(const U8 * const s, const STRLEN len)
+PERL_CALLCONV STRLEN   Perl__is_utf8_char_helper(const U8 * const s, const U8 * const e, const U32 flags)
                        __attribute__warn_unused_result__
                        __attribute__pure__;
-#define PERL_ARGS_ASSERT__IS_UTF8_CHAR_SLOW    \
-       assert(s)
+#define PERL_ARGS_ASSERT__IS_UTF8_CHAR_HELPER  \
+       assert(s); assert(e)
 
 PERL_STATIC_INLINE void        S_append_utf8_from_native_byte(const U8 byte, U8** dest);
 #define PERL_ARGS_ASSERT_APPEND_UTF8_FROM_NATIVE_BYTE  \