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

diff --git a/embed.h b/embed.h
index 21bde98..f6176db 100644
--- a/embed.h
+++ b/embed.h
@@ -1125,6 +1125,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 +1177,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
@@ -2350,7 +2352,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 +2626,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 +2678,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)
@@ -5109,6 +5113,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 +5203,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)