X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.h;h=fab4e1a6f0baada639567ab8808a07099d3ad302;hb=cd19b65c5ecbc051ae6b3ed0644e976003b04fce;hp=71270d881347f530fdcb5664268b3bdf54af512a;hpb=7925835c4310c3d10b784fcb09926648dc49c600;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/embed.h b/embed.h
index 71270d8..fab4e1a 100644
--- a/embed.h
+++ b/embed.h
@@ -1244,6 +1244,9 @@
 #define sv_nolocking		Perl_sv_nolocking
 #define sv_nounlocking		Perl_sv_nounlocking
 #define nothreadhook		Perl_nothreadhook
+#ifdef PERL_CORE
+#define my_tmpfp		Perl_my_tmpfp
+#endif
 #if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
 #ifdef PERL_CORE
 #define do_trans_simple		S_do_trans_simple
@@ -2128,9 +2131,6 @@
 #define cv_dump			S_cv_dump
 #endif
 #  endif
-#ifdef PERL_CORE
-#define cv_clone2		S_cv_clone2
-#endif
 #endif
 #ifdef PERL_CORE
 #define find_runcv		Perl_find_runcv
@@ -3719,6 +3719,9 @@
 #define sv_nolocking(a)		Perl_sv_nolocking(aTHX_ a)
 #define sv_nounlocking(a)	Perl_sv_nounlocking(aTHX_ a)
 #define nothreadhook()		Perl_nothreadhook(aTHX)
+#ifdef PERL_CORE
+#define my_tmpfp()		Perl_my_tmpfp(aTHX)
+#endif
 #if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
 #ifdef PERL_CORE
 #define do_trans_simple(a)	S_do_trans_simple(aTHX_ a)
@@ -4595,16 +4598,13 @@
 #endif
 #if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
 #ifdef PERL_CORE
-#define pad_findlex(a,b,c)	S_pad_findlex(aTHX_ a,b,c)
+#define pad_findlex(a,b,c,d,e,f,g)	S_pad_findlex(aTHX_ a,b,c,d,e,f,g)
 #endif
 #  if defined(DEBUGGING)
 #ifdef PERL_CORE
 #define cv_dump(a,b)		S_cv_dump(aTHX_ a,b)
 #endif
 #  endif
-#ifdef PERL_CORE
-#define cv_clone2(a,b)		S_cv_clone2(aTHX_ a,b)
-#endif
 #endif
 #ifdef PERL_CORE
 #define find_runcv(a)		Perl_find_runcv(aTHX_ a)