More forgotten checkins.

p4raw-id: //depot/perl@13377

3 files changed, 4 insertions, 0 deletions

diff --git a/embed.h b/embed.h
index 0674b75821..ca01a8d900 100644
--- 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 89928090c0..5e9a8b2fa3 100755
--- 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 9bf7b3f758..688af73d1a 100644
--- 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);