Convert _is_uni_FOO to legal name

khwilliamson · khwilliamson · commit 493b1bb4b3a3 · 2025-08-23T08:00:10.000-06:00
diff --git a/embed.fnc b/embed.fnc
@@ -1719,7 +1719,7 @@ ATdip	|bool	|is_strict_utf8_string_loclen				\
 				|STRLEN len				\
 				|NULLOK const U8 **ep			\
 				|NULLOK STRLEN *el
-CRp	|bool	|_is_uni_FOO	|const U8 classnum			\
+CRp	|bool	|is_uni_FOO_	|const U8 classnum			\
 				|const UV c
 CRp	|bool	|is_uni_perl_idcont_					\
 				|UV c
diff --git a/embed.h b/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_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 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)
@@ -320,6 +319,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_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_FF_helper_                     Perl_is_utf8_FF_helper_
diff --git a/handy.h b/handy.h
@@ -2138,7 +2138,7 @@ END_EXTERN_C
                                              : above_latin1(c))
 #define generic_invlist_uvchr_(classnum, c) ((c) < 256                      \
                                              ? generic_isCC_(c, classnum)   \
-                                             : _is_uni_FOO(classnum, c))
+                                             : is_uni_FOO_(classnum, c))
 #define isALPHA_uvchr(c)      generic_invlist_uvchr_(CC_ALPHA_, c)
 #define isALPHANUMERIC_uvchr(c) generic_invlist_uvchr_(CC_ALPHANUMERIC_, c)
 #define isASCII_uvchr(c)      isASCII(c)
@@ -2200,7 +2200,7 @@ END_EXTERN_C
 #define generic_LC_uvchr_(latin1, above_latin1, c)                            \
                                     (c < 256 ? latin1(c) : above_latin1(c))
 #define generic_LC_invlist_uvchr_(latin1, classnum, c)                        \
-                            (c < 256 ? latin1(c) : _is_uni_FOO(classnum, c))
+                            (c < 256 ? latin1(c) : is_uni_FOO_(classnum, c))
 
 #define isALPHA_LC_uvchr(c)  generic_LC_invlist_uvchr_(isALPHA_LC, CC_ALPHA_, c)
 #define isALPHANUMERIC_LC_uvchr(c)  generic_LC_invlist_uvchr_(isALPHANUMERIC_LC, \
diff --git a/proto.h b/proto.h
diff --git a/utf8.c b/utf8.c
@@ -3537,7 +3537,7 @@ Perl_utf8_to_utf16_base(pTHX_ U8* s, U8* d, Size_t bytelen, Size_t *newlen,
 }
 
 bool
-Perl__is_uni_FOO(pTHX_ const U8 classnum, const UV c)
+Perl_is_uni_FOO_(pTHX_ const U8 classnum, const UV c)
 {
     return _invlist_contains_cp(PL_XPosix_ptrs[classnum], c);
 }

Original file line number	Diff line number	Diff line change
`@@ -3537,7 +3537,7 @@ Perl_utf8_to_utf16_base(pTHX_ U8* s, U8* d, Size_t bytelen, Size_t *newlen,`
`3537`	`3537`	`}`
`3538`	`3538`
`3539`	`3539`	`bool`
`3540`		`-Perl__is_uni_FOO(pTHX_ const U8 classnum, const UV c)`
	`3540`	`+Perl_is_uni_FOO_(pTHX_ const U8 classnum, const UV c)`
`3541`	`3541`	`{`
`3542`	`3542`	`return _invlist_contains_cp(PL_XPosix_ptrs[classnum], c);`
`3543`	`3543`	`}`