change #26523 didn't make my_cxt_init public

p4raw-link: @26523 on //depot/perl: f16dd614412ea67a8eb64bb09a88fccdbd9db6b6

p4raw-id: //depot/perl@26529

diff --git a/embed.fnc b/embed.fnc
index 4b37eac..fbca5f1 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1610,7 +1610,7 @@ Apnod     |int    |my_sprintf     |NN char *buffer|NN const char *pat|...
 px     |void   |my_clearenv
 
 #ifdef PERL_IMPLICIT_CONTEXT
-po     |void*  |my_cxt_init    |NN int *index|size_t size
+Apo    |void*  |my_cxt_init    |NN int *index|size_t size
 #endif
 
 

diff --git a/embed.h b/embed.h
index 6e831a0..cd190a6 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -3730,8 +3730,6 @@
 #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)

diff --git a/global.sym b/global.sym
index 13dacb0..3611804 100644 (file)
--- a/global.sym
+++ b/global.sym
@@ -707,4 +707,5 @@ Perl_gv_SVadd
 Perl_ckwarn
 Perl_ckwarn_d
 Perl_my_sprintf
+Perl_my_cxt_init
 # ex: set ro: