From: Dave Mitchell <davem@fdisolutions.com>
Date: Fri, 30 Dec 2005 01:06:05 +0000 (+0000)
Subject: change #26523 didn't make my_cxt_init public
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e33435896f177fccb609ddddaf85afbfdc7a4e5f;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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: