This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
change #26523 didn't make my_cxt_init public
authorDave Mitchell <davem@fdisolutions.com>
Fri, 30 Dec 2005 01:06:05 +0000 (01:06 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Fri, 30 Dec 2005 01:06:05 +0000 (01:06 +0000)
p4raw-link: @26523 on //depot/perl: f16dd614412ea67a8eb64bb09a88fccdbd9db6b6

p4raw-id: //depot/perl@26529

embed.fnc
embed.h
global.sym

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
 #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)
index 13dacb0..3611804 100644 (file)
@@ -707,4 +707,5 @@ Perl_gv_SVadd
 Perl_ckwarn
 Perl_ckwarn_d
 Perl_my_sprintf
+Perl_my_cxt_init
 # ex: set ro: