From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 30 Nov 2001 01:24:29 +0000 (+0000)
Subject: More forgotten checkins.
X-Git-Tag: accepted/trunk/20130322.191538~29116
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=c019660c8d223d1ce212949d8bde21e9b816e412;p=platform%2Fupstream%2Fperl.git

More forgotten checkins.

p4raw-id: //depot/perl@13377
---

diff --git a/embed.h b/embed.h
index 0674b75..ca01a8d 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 8992809..5e9a8b2 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 9bf7b3f..688af73 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);