X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.h;h=9093f9bd0feab5dabebe4a6d500250d93c511c99;hb=9df548ee6c72d2540cc8aac7e738eff1202a7278;hp=21bde987637ba90d3369295ea3871c78da879b7c;hpb=cae6d0e5ad55f3d6c7902bf7cfc560481e827bb3;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/embed.h b/embed.h
index 21bde98..9093f9b 100644
--- a/embed.h
+++ b/embed.h
@@ -430,6 +430,9 @@
 #define my_exit			Perl_my_exit
 #define my_failure_exit		Perl_my_failure_exit
 #define my_fflush_all		Perl_my_fflush_all
+#define my_fork			Perl_my_fork
+#define atfork_lock		Perl_atfork_lock
+#define atfork_unlock		Perl_atfork_unlock
 #define my_lstat		Perl_my_lstat
 #if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
 #define my_memcmp		Perl_my_memcmp
@@ -1125,6 +1128,7 @@
 #define force_version		S_force_version
 #define force_word		S_force_word
 #define tokeq			S_tokeq
+#define pending_ident		S_pending_ident
 #define scan_const		S_scan_const
 #define scan_formline		S_scan_formline
 #define scan_heredoc		S_scan_heredoc
@@ -1176,6 +1180,7 @@
 #define stdize_locale		S_stdize_locale
 #endif
 #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
+#define closest_cop		S_closest_cop
 #define mess_alloc		S_mess_alloc
 #  if defined(LEAKTEST)
 #define xstat			S_xstat
@@ -1939,6 +1944,9 @@
 #define my_exit(a)		Perl_my_exit(aTHX_ a)
 #define my_failure_exit()	Perl_my_failure_exit(aTHX)
 #define my_fflush_all()		Perl_my_fflush_all(aTHX)
+#define my_fork			Perl_my_fork
+#define atfork_lock		Perl_atfork_lock
+#define atfork_unlock		Perl_atfork_unlock
 #define my_lstat()		Perl_my_lstat(aTHX)
 #if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
 #define my_memcmp		Perl_my_memcmp
@@ -2350,7 +2358,7 @@
 #define ss_dup(a,b)		Perl_ss_dup(aTHX_ a,b)
 #define any_dup(a,b)		Perl_any_dup(aTHX_ a,b)
 #define he_dup(a,b,c)		Perl_he_dup(aTHX_ a,b,c)
-#define re_dup(a)		Perl_re_dup(aTHX_ a)
+#define re_dup(a,b)		Perl_re_dup(aTHX_ a,b)
 #define fp_dup(a,b)		Perl_fp_dup(aTHX_ a,b)
 #define dirp_dup(a)		Perl_dirp_dup(aTHX_ a)
 #define gp_dup(a,b)		Perl_gp_dup(aTHX_ a,b)
@@ -2624,6 +2632,7 @@
 #define force_version(a)	S_force_version(aTHX_ a)
 #define force_word(a,b,c,d,e)	S_force_word(aTHX_ a,b,c,d,e)
 #define tokeq(a)		S_tokeq(aTHX_ a)
+#define pending_ident()		S_pending_ident(aTHX)
 #define scan_const(a)		S_scan_const(aTHX_ a)
 #define scan_formline(a)	S_scan_formline(aTHX_ a)
 #define scan_heredoc(a)		S_scan_heredoc(aTHX_ a)
@@ -2675,6 +2684,7 @@
 #define stdize_locale(a)	S_stdize_locale(aTHX_ a)
 #endif
 #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
+#define closest_cop(a,b)	S_closest_cop(aTHX_ a,b)
 #define mess_alloc()		S_mess_alloc(aTHX)
 #  if defined(LEAKTEST)
 #define xstat(a)		S_xstat(aTHX_ a)
@@ -3802,6 +3812,12 @@
 #define my_failure_exit		Perl_my_failure_exit
 #define Perl_my_fflush_all	CPerlObj::Perl_my_fflush_all
 #define my_fflush_all		Perl_my_fflush_all
+#define Perl_my_fork		CPerlObj::Perl_my_fork
+#define my_fork			Perl_my_fork
+#define Perl_atfork_lock	CPerlObj::Perl_atfork_lock
+#define atfork_lock		Perl_atfork_lock
+#define Perl_atfork_unlock	CPerlObj::Perl_atfork_unlock
+#define atfork_unlock		Perl_atfork_unlock
 #define Perl_my_lstat		CPerlObj::Perl_my_lstat
 #define my_lstat		Perl_my_lstat
 #if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
@@ -5109,6 +5125,8 @@
 #define force_word		S_force_word
 #define S_tokeq			CPerlObj::S_tokeq
 #define tokeq			S_tokeq
+#define S_pending_ident		CPerlObj::S_pending_ident
+#define pending_ident		S_pending_ident
 #define S_scan_const		CPerlObj::S_scan_const
 #define scan_const		S_scan_const
 #define S_scan_formline		CPerlObj::S_scan_formline
@@ -5197,6 +5215,8 @@
 #define stdize_locale		S_stdize_locale
 #endif
 #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
+#define S_closest_cop		CPerlObj::S_closest_cop
+#define closest_cop		S_closest_cop
 #define S_mess_alloc		CPerlObj::S_mess_alloc
 #define mess_alloc		S_mess_alloc
 #  if defined(LEAKTEST)