Convert _is_utf8_perl_idcont to legal name

khwilliamson · khwilliamson · commit b28629e186c5 · 2025-08-23T08:00:10.000-06:00
diff --git a/embed.fnc b/embed.fnc
@@ -1764,7 +1764,7 @@ ARTdip	|bool	|is_utf8_invariant_string_loc				\
 				|NN const U8 * const s			\
 				|STRLEN len				\
 				|NULLOK const U8 **ep
-CRp	|bool	|_is_utf8_perl_idcont					\
+CRp	|bool	|is_utf8_perl_idcont_					\
 				|NN const U8 *p 			\
 				|NN const U8 * const e
 CRp	|bool	|is_utf8_perl_idstart_					\
diff --git a/embed.h b/embed.h
@@ -118,7 +118,6 @@
 # define SvUV_nomg(a)                           Perl_SvUV_nomg(aTHX_ a)
 # define _is_uni_FOO(a,b)                       Perl__is_uni_FOO(aTHX_ a,b)
 # define _is_utf8_FOO(a,b,c)                    Perl__is_utf8_FOO(aTHX_ a,b,c)
-# define _is_utf8_perl_idcont(a,b)              Perl__is_utf8_perl_idcont(aTHX_ a,b)
 # 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)
@@ -330,6 +329,7 @@
 # define Perl_is_utf8_fixed_width_buf_loc_flags is_utf8_fixed_width_buf_loc_flags
 # 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
+# define is_utf8_perl_idcont_(a,b)              Perl_is_utf8_perl_idcont_(aTHX_ a,b)
 # define is_utf8_perl_idstart_(a,b)             Perl_is_utf8_perl_idstart_(aTHX_ a,b)
 # define Perl_is_utf8_string                    is_utf8_string
 # define is_utf8_string_flags                   Perl_is_utf8_string_flags
diff --git a/handy.h b/handy.h
@@ -2335,7 +2335,7 @@ END_EXTERN_C
                                             _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)
+                                                 is_utf8_perl_idcont_, p, e)
 
 /* To prevent S_scan_word in toke.c from hanging, we have to make sure that
  * IDFIRST is an alnum.  See
@@ -2445,7 +2445,7 @@ END_EXTERN_C
             generic_LC_invlist_utf8_safe_(isGRAPH_LC, CC_GRAPH_, p, e)
 #define isIDCONT_LC_utf8_safe(p, e)                                         \
             generic_LC_func_utf8_safe_(isIDCONT_LC,                         \
-                                                _is_utf8_perl_idcont, p, e)
+                                                is_utf8_perl_idcont_, p, e)
 #define isIDFIRST_LC_utf8_safe(p, e)                                        \
             generic_LC_func_utf8_safe_(isIDFIRST_LC,                        \
                                                is_utf8_perl_idstart_, p, e)
diff --git a/proto.h b/proto.h
diff --git a/utf8.c b/utf8.c
@@ -3922,9 +3922,9 @@ Perl_is_utf8_perl_idstart_(pTHX_ const U8 *p, const U8 * const e)
 }
 
 bool
-Perl__is_utf8_perl_idcont(pTHX_ const U8 *p, const U8 * const e)
+Perl_is_utf8_perl_idcont_(pTHX_ const U8 *p, const U8 * const e)
 {
-    PERL_ARGS_ASSERT__IS_UTF8_PERL_IDCONT;
+    PERL_ARGS_ASSERT_IS_UTF8_PERL_IDCONT_;
 
     return IS_UTF8_IN_INVLIST(p, e, PL_utf8_perl_idcont);
 }

Original file line number	Diff line number	Diff line change
`@@ -3922,9 +3922,9 @@ Perl_is_utf8_perl_idstart_(pTHX_ const U8 p, const U8 const e)`
`3922`	`3922`	`}`
`3923`	`3923`
`3924`	`3924`	`bool`
`3925`		`-Perl__is_utf8_perl_idcont(pTHX_ const U8 p, const U8 const e)`
	`3925`	`+Perl_is_utf8_perl_idcont_(pTHX_ const U8 p, const U8 const e)`
`3926`	`3926`	`{`
`3927`		`- PERL_ARGS_ASSERT__IS_UTF8_PERL_IDCONT;`
	`3927`	`+ PERL_ARGS_ASSERT_IS_UTF8_PERL_IDCONT_;`
`3928`	`3928`
`3929`	`3929`	`return IS_UTF8_IN_INVLIST(p, e, PL_utf8_perl_idcont);`
`3930`	`3930`	`}`