X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.h;h=747224f63028192909fd353fccfcae94680c4f5c;hb=c993f866915d3552dc02138441c792f0dccb48d0;hp=f5b6a40ce4d7f569fd15321d39801c67ca96e5ed;hpb=82686b017bb20f55e16f84c47f7ac0bf8d0c714b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/embed.h b/embed.h
index f5b6a40..747224f 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)
@@ -169,6 +133,11 @@
 #define do_close		Perl_do_close
 #define do_eof			Perl_do_eof
 #define do_exec			Perl_do_exec
+#if defined(WIN32)
+#define do_aspawn		Perl_do_aspawn
+#define do_spawn		Perl_do_spawn
+#define do_spawn_nowait		Perl_do_spawn_nowait
+#endif
 #if !defined(WIN32)
 #define do_exec3		Perl_do_exec3
 #endif
@@ -725,7 +694,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
@@ -831,7 +799,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
@@ -1738,6 +1705,11 @@
 #define do_close(a,b)		Perl_do_close(aTHX_ a,b)
 #define do_eof(a)		Perl_do_eof(aTHX_ a)
 #define do_exec(a)		Perl_do_exec(aTHX_ a)
+#if defined(WIN32)
+#define do_aspawn(a,b,c)	Perl_do_aspawn(aTHX_ a,b,c)
+#define do_spawn(a)		Perl_do_spawn(aTHX_ a)
+#define do_spawn_nowait(a)	Perl_do_spawn_nowait(aTHX_ a)
+#endif
 #if !defined(WIN32)
 #define do_exec3(a,b,c)		Perl_do_exec3(aTHX_ a,b,c)
 #endif
@@ -2287,7 +2259,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)
@@ -2389,7 +2360,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)
@@ -2711,7 +2681,7 @@
 #  endif
 #define expect_number(a)	S_expect_number(aTHX_ a)
 #  if defined(USE_ITHREADS)
-#define gv_share(a)		S_gv_share(aTHX_ a)
+#define gv_share(a,b)		S_gv_share(aTHX_ a,b)
 #  endif
 #endif
 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
@@ -3207,7 +3177,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