Move Perl_is_utf8_char_buf from mathoms to be a macro is utf8.h

khwilliamson · khwilliamson · commit 70273239cd6d · 2024-10-30T13:38:57.000-06:00
diff --git a/embed.fnc b/embed.fnc
@@ -1686,7 +1686,7 @@ CRp	|bool	|_is_uni_perl_idstart					\
 				|UV c
 ARTdip	|Size_t |isUTF8_CHAR	|NN const U8 * const s0 		\
 				|NN const U8 * const e
-AMTbdp	|STRLEN |is_utf8_char_buf					\
+ATdmp	|STRLEN |is_utf8_char_buf					\
 				|NN const U8 *buf			\
 				|NN const U8 *buf_end
 ARTdip	|Size_t |isUTF8_CHAR_flags					\
diff --git a/embed.h b/embed.h
@@ -339,6 +339,7 @@
 # define is_safe_syscall(a,b,c,d)               Perl_is_safe_syscall(aTHX_ a,b,c,d)
 # define is_strict_utf8_string_loclen           Perl_is_strict_utf8_string_loclen
 # define is_utf8_FF_helper_                     Perl_is_utf8_FF_helper_
+# define is_utf8_char_buf                       Perl_is_utf8_char_buf
 # define is_utf8_char_helper_                   Perl_is_utf8_char_helper_
 # define is_utf8_fixed_width_buf_loclen_flags   Perl_is_utf8_fixed_width_buf_loclen_flags
 # define is_utf8_invariant_string_loc           Perl_is_utf8_invariant_string_loc
diff --git a/mathoms.c b/mathoms.c
@@ -135,14 +135,6 @@ Perl_sv_nounlocking(pTHX_ SV *sv)
     PERL_UNUSED_ARG(sv);
 }
 
-STRLEN
-Perl_is_utf8_char_buf(const U8 *buf, const U8* buf_end)
-{
-
-    PERL_ARGS_ASSERT_IS_UTF8_CHAR_BUF;
-
-    return isUTF8_CHAR(buf, buf_end);
-}
 /*
 =for apidoc_section $unicode
 =for apidoc utf8_to_uvuni
diff --git a/proto.h b/proto.h
diff --git a/utf8.h b/utf8.h
@@ -1297,7 +1297,7 @@ point's representation.
 /* Should be removed; maybe deprecated, but not used in CPAN */
 #define SHARP_S_SKIP 2
 
-#define is_utf8_char_buf(buf, buf_end) isUTF8_CHAR(buf, buf_end)
+#define Perl_is_utf8_char_buf(buf, buf_end) isUTF8_CHAR(buf, buf_end)
 
 /* Do not use; should be deprecated.  Use isUTF8_CHAR() instead; this is
  * retained solely for backwards compatibility */
