More forgotten checkins.

p4raw-id: //depot/perl@13377

diff --git a/embed.h b/embed.h
index 0674b75..ca01a8d 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -290,6 +290,7 @@
 #define to_uni_upper           Perl_to_uni_upper
 #define to_uni_title           Perl_to_uni_title
 #define to_uni_lower           Perl_to_uni_lower
+#define to_uni_fold            Perl_to_uni_fold
 #define is_uni_alnum_lc                Perl_is_uni_alnum_lc
 #define is_uni_alnumc_lc       Perl_is_uni_alnumc_lc
 #define is_uni_idfirst_lc      Perl_is_uni_idfirst_lc
@@ -1810,6 +1811,7 @@
 #define to_uni_upper(a,b,c)    Perl_to_uni_upper(aTHX_ a,b,c)
 #define to_uni_title(a,b,c)    Perl_to_uni_title(aTHX_ a,b,c)
 #define to_uni_lower(a,b,c)    Perl_to_uni_lower(aTHX_ a,b,c)
+#define to_uni_fold(a,b,c)     Perl_to_uni_fold(aTHX_ a,b,c)
 #define is_uni_alnum_lc(a)     Perl_is_uni_alnum_lc(aTHX_ a)
 #define is_uni_alnumc_lc(a)    Perl_is_uni_alnumc_lc(aTHX_ a)
 #define is_uni_idfirst_lc(a)   Perl_is_uni_idfirst_lc(aTHX_ a)

diff --git a/embed.pl b/embed.pl
index 8992809..5e9a8b2 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -1362,6 +1362,7 @@ Ap        |bool   |is_uni_xdigit  |UV c
 Ap     |UV     |to_uni_upper   |UV c|U8 *p|STRLEN *lenp
 Ap     |UV     |to_uni_title   |UV c|U8 *p|STRLEN *lenp
 Ap     |UV     |to_uni_lower   |UV c|U8 *p|STRLEN *lenp
+Ap     |UV     |to_uni_fold    |UV c|U8 *p|STRLEN *lenp
 Ap     |bool   |is_uni_alnum_lc|UV c
 Ap     |bool   |is_uni_alnumc_lc|UV c
 Ap     |bool   |is_uni_idfirst_lc|UV c

diff --git a/proto.h b/proto.h
index 9bf7b3f..688af73 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -344,6 +344,7 @@ PERL_CALLCONV bool  Perl_is_uni_xdigit(pTHX_ UV c);
 PERL_CALLCONV UV       Perl_to_uni_upper(pTHX_ UV c, U8 *p, STRLEN *lenp);
 PERL_CALLCONV UV       Perl_to_uni_title(pTHX_ UV c, U8 *p, STRLEN *lenp);
 PERL_CALLCONV UV       Perl_to_uni_lower(pTHX_ UV c, U8 *p, STRLEN *lenp);
+PERL_CALLCONV UV       Perl_to_uni_fold(pTHX_ UV c, U8 *p, STRLEN *lenp);
 PERL_CALLCONV bool     Perl_is_uni_alnum_lc(pTHX_ UV c);
 PERL_CALLCONV bool     Perl_is_uni_alnumc_lc(pTHX_ UV c);
 PERL_CALLCONV bool     Perl_is_uni_idfirst_lc(pTHX_ UV c);