Perl_store_cop_label() isn't meant to be part of the public API.

(global.sym had been inconsistent with embed.fnc, but it turns out that
global.sym was actually correct.)

p4raw-id: //depot/perl@33677

diff --git a/embed.fnc b/embed.fnc
index a536cb7..088957a 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1989,7 +1989,7 @@ Apon      |void   |sys_init3      |NN int* argc|NN char*** argv|NN char*** env
 Apon   |void   |sys_term
 ApoM   |const char *|fetch_cop_label|NULLOK struct refcounted_he *const chain \
                |NULLOK STRLEN *len|NULLOK U32 *flags
-ApoM   |struct refcounted_he *|store_cop_label \
+xpoM   |struct refcounted_he *|store_cop_label \
                |NULLOK struct refcounted_he *const chain|NN const char *label
 
 END_EXTERN_C

diff --git a/embed.h b/embed.h
index cb2a66d..36f8cbf 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -4263,6 +4263,8 @@
 #ifdef PERL_CORE
 #define boot_core_mro()                Perl_boot_core_mro(aTHX)
 #endif
+#ifdef PERL_CORE
+#endif
 #define ck_anoncode(a)         Perl_ck_anoncode(aTHX_ a)
 #define ck_bitop(a)            Perl_ck_bitop(aTHX_ a)
 #define ck_chdir(a)            Perl_ck_chdir(aTHX_ a)