U/WIN: final (for now) touches from John P. Linderman;

[p5sagit/p5-mst-13.2.git] / embed.h

diff --git a/embed.h b/embed.h
index 71270d8..fab4e1a 100644 (file)
--- 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)