This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
embed.fnc: Mark foldEQ_latin1 as Core only
authorKarl Williamson <khw@cpan.org>
Wed, 22 Jul 2020 12:05:29 +0000 (06:05 -0600)
committerKarl Williamson <khw@cpan.org>
Sat, 15 Aug 2020 11:51:47 +0000 (05:51 -0600)
This is a helper for internal use, as it isn't a complete solution to
the problem.

embed.fnc

index 02ddfe4..d66a09e 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -982,7 +982,7 @@ Amd |I32    |foldEQ_utf8    |NN const char *s1|NULLOK char **pe1|UV l1 \
 Cp     |I32    |foldEQ_utf8_flags |NN const char *s1|NULLOK char **pe1|UV l1 \
                                |bool u1|NN const char *s2|NULLOK char **pe2 \
                                |UV l2|bool u2|U32 flags
 Cp     |I32    |foldEQ_utf8_flags |NN const char *s1|NULLOK char **pe1|UV l1 \
                                |bool u1|NN const char *s2|NULLOK char **pe2 \
                                |UV l2|bool u2|U32 flags
-AiTp   |I32    |foldEQ_latin1  |NN const char* a|NN const char* b|I32 len
+CiTp   |I32    |foldEQ_latin1  |NN const char* a|NN const char* b|I32 len
 #if defined(PERL_IN_DOIO_C)
 SR     |bool   |ingroup        |Gid_t testgid|bool effective
 #endif
 #if defined(PERL_IN_DOIO_C)
 SR     |bool   |ingroup        |Gid_t testgid|bool effective
 #endif