re-implement MY_CXT API more efficiently, and add explicit

[perl5.git] / embed.h

diff --git a/embed.h b/embed.h
index c0e3b52..6e831a0 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -1691,6 +1691,8 @@
 #ifdef PERL_CORE
 #define my_clearenv            Perl_my_clearenv
 #endif
+#ifdef PERL_IMPLICIT_CONTEXT
+#endif
 #define ck_anoncode            Perl_ck_anoncode
 #define ck_bitop               Perl_ck_bitop
 #define ck_concat              Perl_ck_concat
@@ -3727,6 +3729,10 @@
 #ifdef PERL_CORE
 #define my_clearenv()          Perl_my_clearenv(aTHX)
 #endif
+#ifdef PERL_IMPLICIT_CONTEXT
+#ifdef PERL_CORE
+#endif
+#endif
 #define ck_anoncode(a)         Perl_ck_anoncode(aTHX_ a)
 #define ck_bitop(a)            Perl_ck_bitop(aTHX_ a)
 #define ck_concat(a)           Perl_ck_concat(aTHX_ a)