Convert _is_uni_perl_idstart to legal name

khwilliamson · khwilliamson · commit 7f59a627e581 · 2025-08-23T08:00:10.000-06:00
diff --git a/embed.fnc b/embed.fnc
@@ -1723,7 +1723,7 @@ CRp	|bool	|_is_uni_FOO	|const U8 classnum			\
 				|const UV c
 CRp	|bool	|_is_uni_perl_idcont					\
 				|UV c
-CRp	|bool	|_is_uni_perl_idstart					\
+CRp	|bool	|is_uni_perl_idstart_					\
 				|UV c
 ARTdip	|Size_t |isUTF8_CHAR	|NN const U8 * const s0 		\
 				|NN const U8 * const e
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_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_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 _is_utf8_perl_idstart(a,b)             Perl__is_utf8_perl_idstart(aTHX_ a,b)
@@ -324,6 +323,7 @@
 # define Perl_is_strict_utf8_string             is_strict_utf8_string
 # define Perl_is_strict_utf8_string_loc         is_strict_utf8_string_loc
 # define is_strict_utf8_string_loclen           Perl_is_strict_utf8_string_loclen
+# define is_uni_perl_idstart_(a)                Perl_is_uni_perl_idstart_(aTHX_ a)
 # define is_utf8_FF_helper_                     Perl_is_utf8_FF_helper_
 # define Perl_is_utf8_char_buf                  is_utf8_char_buf
 # define is_utf8_char_helper_                   Perl_is_utf8_char_helper_
diff --git a/handy.h b/handy.h
@@ -2149,7 +2149,7 @@ END_EXTERN_C
 #define isIDCONT_uvchr(c)                                                   \
                     generic_uvchr_(CC_WORDCHAR_, _is_uni_perl_idcont, c)
 #define isIDFIRST_uvchr(c)                                                  \
-                    generic_uvchr_(CC_IDFIRST_, _is_uni_perl_idstart, c)
+                    generic_uvchr_(CC_IDFIRST_, is_uni_perl_idstart_, c)
 #define isLOWER_uvchr(c)      generic_invlist_uvchr_(CC_LOWER_, c)
 #define isPRINT_uvchr(c)      generic_invlist_uvchr_(CC_PRINT_, c)
 
@@ -2214,7 +2214,7 @@ END_EXTERN_C
 #define isIDCONT_LC_uvchr(c) generic_LC_uvchr_(isIDCONT_LC,                   \
                                                   _is_uni_perl_idcont, c)
 #define isIDFIRST_LC_uvchr(c) generic_LC_uvchr_(isIDFIRST_LC,                 \
-                                                  _is_uni_perl_idstart, c)
+                                                  is_uni_perl_idstart_, c)
 #define isLOWER_LC_uvchr(c)  generic_LC_invlist_uvchr_(isLOWER_LC, CC_LOWER_, c)
 #define isPRINT_LC_uvchr(c)  generic_LC_invlist_uvchr_(isPRINT_LC, CC_PRINT_, c)
 #define isPSXSPC_LC_uvchr(c)  isSPACE_LC_uvchr(c)
diff --git a/proto.h b/proto.h
diff --git a/utf8.c b/utf8.c
@@ -3549,7 +3549,7 @@ Perl__is_uni_perl_idcont(pTHX_ UV c)
 }
 
 bool
-Perl__is_uni_perl_idstart(pTHX_ UV c)
+Perl_is_uni_perl_idstart_(pTHX_ UV c)
 {
     return _invlist_contains_cp(PL_utf8_perl_idstart, c);
 }

Original file line number	Diff line number	Diff line change
`@@ -3549,7 +3549,7 @@ Perl__is_uni_perl_idcont(pTHX_ UV c)`
`3549`	`3549`	`}`
`3550`	`3550`
`3551`	`3551`	`bool`
`3552`		`-Perl__is_uni_perl_idstart(pTHX_ UV c)`
	`3552`	`+Perl_is_uni_perl_idstart_(pTHX_ UV c)`
`3553`	`3553`	`{`
`3554`	`3554`	`return _invlist_contains_cp(PL_utf8_perl_idstart, c);`
`3555`	`3555`	`}`