Convert _is_utf8_FOO to legal name

Author: khwilliamson

embed.fnc

@@ -1757,7 +1757,7 @@ ATdip	|bool	|is_utf8_fixed_width_buf_loclen_flags			\
 				|NULLOK const U8 **ep			\
 				|NULLOK STRLEN *el			\
 				|const U32 flags
-CRp	|bool	|_is_utf8_FOO	|const U8 classnum			\
+CRp	|bool	|is_utf8_FOO_	|const U8 classnum			\
 				|NN const U8 *p 			\
 				|NN const U8 * const e
 ARTdip	|bool	|is_utf8_invariant_string_loc				\

embed.h

@@ -116,7 +116,6 @@
 # define SvTRUE_nomg(a)                         Perl_SvTRUE_nomg(aTHX_ a)
 # define SvUV(a)                                Perl_SvUV(aTHX_ a)
 # define SvUV_nomg(a)                           Perl_SvUV_nomg(aTHX_ a)
-# define _is_utf8_FOO(a,b,c)                    Perl__is_utf8_FOO(aTHX_ a,b,c)
 # define amagic_call(a,b,c,d)                   Perl_amagic_call(aTHX_ a,b,c,d)
 # define amagic_deref_call(a,b)                 Perl_amagic_deref_call(aTHX_ a,b)
 # define apply_attrs_string(a,b,c,d)            Perl_apply_attrs_string(aTHX_ a,b,c,d)
@@ -323,6 +322,7 @@
 # define is_uni_perl_idcont_(a)                 Perl_is_uni_perl_idcont_(aTHX_ a)
 # define is_uni_perl_idstart_(a)                Perl_is_uni_perl_idstart_(aTHX_ a)
 # define is_utf8_FF_helper_                     Perl_is_utf8_FF_helper_
+# define is_utf8_FOO_(a,b,c)                    Perl_is_utf8_FOO_(aTHX_ a,b,c)
 # define Perl_is_utf8_char_buf                  is_utf8_char_buf
 # define is_utf8_char_helper_                   Perl_is_utf8_char_helper_
 # define Perl_is_utf8_fixed_width_buf_flags     is_utf8_fixed_width_buf_flags

handy.h

@@ -2277,7 +2277,7 @@ END_EXTERN_C
 /* Like the above, but passes classnum to _isFOO_utf8(), instead of having an
  * 'above_latin1' parameter */
 #define generic_invlist_utf8_safe_(classnum, p, e)                          \
-            generic_utf8_safe_(classnum, p, e, _is_utf8_FOO(classnum, p, e))
+            generic_utf8_safe_(classnum, p, e, is_utf8_FOO_(classnum, p, e))
 
 /* Like the above, but should be used only when it is known that there are no
  * characters in the upper-Latin1 range (128-255 on ASCII platforms) which the
@@ -2332,7 +2332,7 @@ END_EXTERN_C
 
 #define isDIGIT_utf8_safe(p, e)                                             \
             generic_utf8_safe_no_upper_latin1_(CC_DIGIT_, p, e,             \
-                                            _is_utf8_FOO(CC_DIGIT_, p, e))
+                                            is_utf8_FOO_(CC_DIGIT_, p, e))
 #define isGRAPH_utf8_safe(p, e)    generic_invlist_utf8_safe_(CC_GRAPH_, p, e)
 #define isIDCONT_utf8_safe(p, e)   generic_func_utf8_safe_(CC_WORDCHAR_,    \
                                                  is_utf8_perl_idcont_, p, e)
@@ -2416,7 +2416,7 @@ END_EXTERN_C
 
 #define generic_LC_invlist_utf8_safe_(macro, classnum, p, e)                  \
             generic_LC_utf8_safe_(macro, p, e,                              \
-                                            _is_utf8_FOO(classnum, p, e))
+                                            is_utf8_FOO_(classnum, p, e))
 
 #define generic_LC_func_utf8_safe_(macro, above_latin1, p, e)               \
             generic_LC_utf8_safe_(macro, p, e, above_latin1(p, e))

proto.h

@@ -3906,9 +3906,9 @@ S_warn_on_first_deprecated_use(pTHX_ U32 category,
             _invlist_contains_cp(invlist, utf8_to_uv_or_die(p, e, NULL))
 
 bool
-Perl__is_utf8_FOO(pTHX_ const U8 classnum, const U8 *p, const U8 * const e)
+Perl_is_utf8_FOO_(pTHX_ const U8 classnum, const U8 *p, const U8 * const e)
 {
-    PERL_ARGS_ASSERT__IS_UTF8_FOO;
+    PERL_ARGS_ASSERT_IS_UTF8_FOO_;
 
     return IS_UTF8_IN_INVLIST(p, e, PL_XPosix_ptrs[classnum]);
 }