X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.h;h=fd65d07c39cacee3a2335b4b4cb1f4202f79a119;hb=a931254cae96837faa9089a48103ffa0489ff64a;hp=ca01a8d9001a0f0af62e0eb044f9e9fdfa419d26;hpb=c019660c8d223d1ce212949d8bde21e9b816e412;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/embed.h b/embed.h
index ca01a8d..fd65d07 100644
--- a/embed.h
+++ b/embed.h
@@ -273,6 +273,9 @@
 #define invert			Perl_invert
 #define is_gv_magical		Perl_is_gv_magical
 #define is_lvalue_sub		Perl_is_lvalue_sub
+#define to_uni_upper_lc		Perl_to_uni_upper_lc
+#define to_uni_title_lc		Perl_to_uni_title_lc
+#define to_uni_lower_lc		Perl_to_uni_lower_lc
 #define is_uni_alnum		Perl_is_uni_alnum
 #define is_uni_alnumc		Perl_is_uni_alnumc
 #define is_uni_idfirst		Perl_is_uni_idfirst
@@ -629,7 +632,6 @@
 #define setenv_getix		Perl_setenv_getix
 #endif
 #define setdefout		Perl_setdefout
-#define sharepvn		Perl_sharepvn
 #define share_hek		Perl_share_hek
 #define sighandler		Perl_sighandler
 #define stack_grow		Perl_stack_grow
@@ -753,6 +755,8 @@
 #define utf8n_to_uvuni		Perl_utf8n_to_uvuni
 #define uvchr_to_utf8		Perl_uvchr_to_utf8
 #define uvuni_to_utf8		Perl_uvuni_to_utf8
+#define uvchr_to_utf8_flags	Perl_uvchr_to_utf8_flags
+#define uvuni_to_utf8_flags	Perl_uvuni_to_utf8_flags
 #define pv_uni_display		Perl_pv_uni_display
 #define sv_uni_display		Perl_sv_uni_display
 #define vivify_defelem		Perl_vivify_defelem
@@ -929,6 +933,7 @@
 #define my_kid			S_my_kid
 #define dup_attrlist		S_dup_attrlist
 #define apply_attrs		S_apply_attrs
+#define apply_attrs_my		S_apply_attrs_my
 #  if defined(PL_OP_SLAB_ALLOC)
 #define Slab_Alloc		S_Slab_Alloc
 #  endif
@@ -1782,7 +1787,7 @@
 #define hv_undef(a)		Perl_hv_undef(aTHX_ a)
 #define ibcmp(a,b,c)		Perl_ibcmp(aTHX_ a,b,c)
 #define ibcmp_locale(a,b,c)	Perl_ibcmp_locale(aTHX_ a,b,c)
-#define ibcmp_utf8(a,b,c,d,e)	Perl_ibcmp_utf8(aTHX_ a,b,c,d,e)
+#define ibcmp_utf8(a,b,c,d,e,f)	Perl_ibcmp_utf8(aTHX_ a,b,c,d,e,f)
 #define ingroup(a,b)		Perl_ingroup(aTHX_ a,b)
 #define init_argv_symbols(a,b)	Perl_init_argv_symbols(aTHX_ a,b)
 #define init_debugger()		Perl_init_debugger(aTHX)
@@ -1794,6 +1799,9 @@
 #define invert(a)		Perl_invert(aTHX_ a)
 #define is_gv_magical(a,b,c)	Perl_is_gv_magical(aTHX_ a,b,c)
 #define is_lvalue_sub()		Perl_is_lvalue_sub(aTHX)
+#define to_uni_upper_lc(a)	Perl_to_uni_upper_lc(aTHX_ a)
+#define to_uni_title_lc(a)	Perl_to_uni_title_lc(aTHX_ a)
+#define to_uni_lower_lc(a)	Perl_to_uni_lower_lc(aTHX_ a)
 #define is_uni_alnum(a)		Perl_is_uni_alnum(aTHX_ a)
 #define is_uni_alnumc(a)	Perl_is_uni_alnumc(aTHX_ a)
 #define is_uni_idfirst(a)	Perl_is_uni_idfirst(aTHX_ a)
@@ -2147,7 +2155,6 @@
 #define setenv_getix(a)		Perl_setenv_getix(aTHX_ a)
 #endif
 #define setdefout(a)		Perl_setdefout(aTHX_ a)
-#define sharepvn(a,b,c)		Perl_sharepvn(aTHX_ a,b,c)
 #define share_hek(a,b,c)	Perl_share_hek(aTHX_ a,b,c)
 #define sighandler		Perl_sighandler
 #define stack_grow(a,b,c)	Perl_stack_grow(aTHX_ a,b,c)
@@ -2269,6 +2276,8 @@
 #define utf8n_to_uvuni(a,b,c,d)	Perl_utf8n_to_uvuni(aTHX_ a,b,c,d)
 #define uvchr_to_utf8(a,b)	Perl_uvchr_to_utf8(aTHX_ a,b)
 #define uvuni_to_utf8(a,b)	Perl_uvuni_to_utf8(aTHX_ a,b)
+#define uvchr_to_utf8_flags(a,b,c)	Perl_uvchr_to_utf8_flags(aTHX_ a,b,c)
+#define uvuni_to_utf8_flags(a,b,c)	Perl_uvuni_to_utf8_flags(aTHX_ a,b,c)
 #define pv_uni_display(a,b,c,d,e)	Perl_pv_uni_display(aTHX_ a,b,c,d,e)
 #define sv_uni_display(a,b,c,d)	Perl_sv_uni_display(aTHX_ a,b,c,d)
 #define vivify_defelem(a)	Perl_vivify_defelem(aTHX_ a)
@@ -2436,9 +2445,10 @@
 #  endif
 #define cv_clone2(a,b)		S_cv_clone2(aTHX_ a,b)
 #define scalar_mod_type(a,b)	S_scalar_mod_type(aTHX_ a,b)
-#define my_kid(a,b)		S_my_kid(aTHX_ a,b)
+#define my_kid(a,b,c)		S_my_kid(aTHX_ a,b,c)
 #define dup_attrlist(a)		S_dup_attrlist(aTHX_ a)
-#define apply_attrs(a,b,c)	S_apply_attrs(aTHX_ a,b,c)
+#define apply_attrs(a,b,c,d)	S_apply_attrs(aTHX_ a,b,c,d)
+#define apply_attrs_my(a,b,c,d)	S_apply_attrs_my(aTHX_ a,b,c,d)
 #  if defined(PL_OP_SLAB_ALLOC)
 #define Slab_Alloc(a,b)		S_Slab_Alloc(aTHX_ a,b)
 #  endif