Change 33677 by [EMAIL PROTECTED] on 2008/04/14 15:01:49
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.)
Affected files ...
... //depot/perl/embed.fnc#611 edit
... //depot/perl/embed.h#758 edit
Differences ...
==== //depot/perl/embed.fnc#611 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#610~33657~ 2008-04-07 07:45:33.000000000 -0700
+++ perl/embed.fnc 2008-04-14 08:01:49.000000000 -0700
@@ -1989,7 +1989,7 @@
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
==== //depot/perl/embed.h#758 (text+w) ====
Index: perl/embed.h
--- perl/embed.h#757~33657~ 2008-04-07 07:45:33.000000000 -0700
+++ perl/embed.h 2008-04-14 08:01:49.000000000 -0700
@@ -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)
End of Patch.
