This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Refactor Perl_store_cop_label() to avoid exposing struct refcounted_he *.
[perl5.git] / embed.fnc
index a443e9a..ddc3173 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -2382,8 +2382,8 @@ Apon      |void   |sys_term
 ApoM   |const char *|fetch_cop_label|NULLOK struct refcounted_he *const chain \
                |NULLOK STRLEN *len|NULLOK U32 *flags
 : Only used  in op.c
-xpoM   |struct refcounted_he *|store_cop_label \
-               |NULLOK struct refcounted_he *const chain|NN const char *label
+xpoM   |void|store_cop_label \
+               |NN COP *cop|NN const char *label|STRLEN len|U32 flags
 
 xpo    |int    |keyword_plugin_standard|NN char* keyword_ptr|STRLEN keyword_len|NN OP** op_ptr