X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.h;h=805fd0def29e661018681f05b20dc1d6ac82457a;hb=6bf773bc686b4cd0d5636f17f9d73af75a9598a9;hp=5df6a20f16814c25d6a99fa0e6b10f91392617a1;hpb=e16e2ff836b177c52744755a35f12e818d01328b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/embed.h b/embed.h
index 5df6a20..805fd0d 100644
--- a/embed.h
+++ b/embed.h
@@ -15,42 +15,6 @@
 
 /* NO_EMBED is no longer supported. i.e. EMBED is always active. */
 
-/* provide binary compatible (but inconsistent) names */
-#if defined(PERL_BINCOMPAT_5005)
-#  define  Perl_call_atexit		perl_atexit
-#  define  Perl_eval_sv			perl_eval_sv
-#  define  Perl_eval_pv			perl_eval_pv
-#  define  Perl_call_argv		perl_call_argv
-#  define  Perl_call_method		perl_call_method
-#  define  Perl_call_pv			perl_call_pv
-#  define  Perl_call_sv			perl_call_sv
-#  define  Perl_get_av			perl_get_av
-#  define  Perl_get_cv			perl_get_cv
-#  define  Perl_get_hv			perl_get_hv
-#  define  Perl_get_sv			perl_get_sv
-#  define  Perl_init_i18nl10n		perl_init_i18nl10n
-#  define  Perl_init_i18nl14n		perl_init_i18nl14n
-#  define  Perl_new_collate		perl_new_collate
-#  define  Perl_new_ctype		perl_new_ctype
-#  define  Perl_new_numeric		perl_new_numeric
-#  define  Perl_require_pv		perl_require_pv
-#  define  Perl_safesyscalloc		Perl_safecalloc
-#  define  Perl_safesysfree		Perl_safefree
-#  define  Perl_safesysmalloc		Perl_safemalloc
-#  define  Perl_safesysrealloc		Perl_saferealloc
-#  define  Perl_set_numeric_local	perl_set_numeric_local
-#  define  Perl_set_numeric_standard	perl_set_numeric_standard
-/* malloc() pollution was the default in earlier versions, so enable
- * it for bincompat; but not for systems that used to do prevent that,
- * or when they ask for {HIDE,EMBED}MYMALLOC */
-#  if !defined(EMBEDMYMALLOC) && !defined(HIDEMYMALLOC)
-#    if !defined(NeXT) && !defined(__NeXT) && !defined(__MACHTEN__) && \
-        !defined(__QNX__)
-#      define  PERL_POLLUTE_MALLOC
-#    endif
-#  endif
-#endif
-
 /* Hide global symbols */
 
 #if !defined(PERL_IMPLICIT_CONTEXT)
@@ -325,6 +289,7 @@
 #define is_utf8_alnum		Perl_is_utf8_alnum
 #define is_utf8_alnumc		Perl_is_utf8_alnumc
 #define is_utf8_idfirst		Perl_is_utf8_idfirst
+#define is_utf8_idcont		Perl_is_utf8_idcont
 #define is_utf8_alpha		Perl_is_utf8_alpha
 #define is_utf8_ascii		Perl_is_utf8_ascii
 #define is_utf8_space		Perl_is_utf8_space
@@ -724,7 +689,6 @@
 #define sv_setpvf		Perl_sv_setpvf
 #define sv_vsetpvf		Perl_sv_vsetpvf
 #define sv_setiv		Perl_sv_setiv
-#define sv_setpviv		Perl_sv_setpviv
 #define sv_setuv		Perl_sv_setuv
 #define sv_setnv		Perl_sv_setnv
 #define sv_setref_iv		Perl_sv_setref_iv
@@ -830,7 +794,6 @@
 #define sv_setpvf_mg		Perl_sv_setpvf_mg
 #define sv_vsetpvf_mg		Perl_sv_vsetpvf_mg
 #define sv_setiv_mg		Perl_sv_setiv_mg
-#define sv_setpviv_mg		Perl_sv_setpviv_mg
 #define sv_setuv_mg		Perl_sv_setuv_mg
 #define sv_setnv_mg		Perl_sv_setnv_mg
 #define sv_setpv_mg		Perl_sv_setpv_mg
@@ -1892,6 +1855,7 @@
 #define is_utf8_alnum(a)	Perl_is_utf8_alnum(aTHX_ a)
 #define is_utf8_alnumc(a)	Perl_is_utf8_alnumc(aTHX_ a)
 #define is_utf8_idfirst(a)	Perl_is_utf8_idfirst(aTHX_ a)
+#define is_utf8_idcont(a)	Perl_is_utf8_idcont(aTHX_ a)
 #define is_utf8_alpha(a)	Perl_is_utf8_alpha(aTHX_ a)
 #define is_utf8_ascii(a)	Perl_is_utf8_ascii(aTHX_ a)
 #define is_utf8_space(a)	Perl_is_utf8_space(aTHX_ a)
@@ -2285,7 +2249,6 @@
 #define sv_reset(a,b)		Perl_sv_reset(aTHX_ a,b)
 #define sv_vsetpvf(a,b,c)	Perl_sv_vsetpvf(aTHX_ a,b,c)
 #define sv_setiv(a,b)		Perl_sv_setiv(aTHX_ a,b)
-#define sv_setpviv(a,b)		Perl_sv_setpviv(aTHX_ a,b)
 #define sv_setuv(a,b)		Perl_sv_setuv(aTHX_ a,b)
 #define sv_setnv(a,b)		Perl_sv_setnv(aTHX_ a,b)
 #define sv_setref_iv(a,b,c)	Perl_sv_setref_iv(aTHX_ a,b,c)
@@ -2387,7 +2350,6 @@
 #define sv_catsv_mg(a,b)	Perl_sv_catsv_mg(aTHX_ a,b)
 #define sv_vsetpvf_mg(a,b,c)	Perl_sv_vsetpvf_mg(aTHX_ a,b,c)
 #define sv_setiv_mg(a,b)	Perl_sv_setiv_mg(aTHX_ a,b)
-#define sv_setpviv_mg(a,b)	Perl_sv_setpviv_mg(aTHX_ a,b)
 #define sv_setuv_mg(a,b)	Perl_sv_setuv_mg(aTHX_ a,b)
 #define sv_setnv_mg(a,b)	Perl_sv_setnv_mg(aTHX_ a,b)
 #define sv_setpv_mg(a,b)	Perl_sv_setpv_mg(aTHX_ a,b)
@@ -3205,7 +3167,7 @@
 #  define sv_setptrref(rv,ptr)		sv_setref_iv(rv,Nullch,PTR2IV(ptr))
 #endif
 
-#if !defined(PERL_CORE) && !defined(PERL_NOCOMPAT) && !defined(PERL_BINCOMPAT_5005)
+#if !defined(PERL_CORE) && !defined(PERL_NOCOMPAT)
 
 /* Compatibility for various misnamed functions.  All functions
    in the API that begin with "perl_" (not "Perl_") take an explicit