This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Perl_store_cop_label() isn't meant to be part of the public API.
authorNicholas Clark <nick@ccl4.org>
Mon, 14 Apr 2008 15:01:49 +0000 (15:01 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 14 Apr 2008 15:01:49 +0000 (15:01 +0000)
(global.sym had been inconsistent with embed.fnc, but it turns out that
global.sym was actually correct.)

p4raw-id: //depot/perl@33677

embed.fnc
embed.h

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
 #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)