Silence compiler warnings

diff --git a/embed.fnc b/embed.fnc
index 995f8f0..71e6e1c 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -2391,7 +2391,7 @@ ApoM      |const char *|fetch_cop_label|NN COP *const cop \
                |NULLOK STRLEN *len|NULLOK U32 *flags
 : Only used  in op.c
 xpoM   |void|store_cop_label \
-               |NN COP *cop|NN const char *label|STRLEN len|U32 flags
+               |NN COP *const 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
 : Used in perly.y

diff --git a/hv.c b/hv.c
index ade7e8c..590524c 100644 (file)
--- a/hv.c
+++ b/hv.c
@@ -2989,7 +2989,7 @@ Perl_refcounted_he_free(pTHX_ struct refcounted_he *he) {
 /* pp_entereval is aware that labels are stored with a key ':' at the top of
    the linked list.  */
 const char *
-Perl_fetch_cop_label(pTHX_ COP *cop, STRLEN *len, U32 *flags) {
+Perl_fetch_cop_label(pTHX_ COP *const cop, STRLEN *len, U32 *flags) {
     struct refcounted_he *const chain = cop->cop_hints_hash;
 
     PERL_ARGS_ASSERT_FETCH_COP_LABEL;

diff --git a/proto.h b/proto.h
index 4c7fb3d..6b1e25b 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -6974,7 +6974,7 @@ PERL_CALLCONV const char *        Perl_fetch_cop_label(pTHX_ COP *const cop, STRLEN *le
 #define PERL_ARGS_ASSERT_FETCH_COP_LABEL       \
        assert(cop)
 
-PERL_CALLCONV void     Perl_store_cop_label(pTHX_ COP *cop, const char *label, STRLEN len, U32 flags)
+PERL_CALLCONV void     Perl_store_cop_label(pTHX_ COP *const cop, const char *label, STRLEN len, U32 flags)
                        __attribute__nonnull__(pTHX_1)
                        __attribute__nonnull__(pTHX_2);
 #define PERL_ARGS_ASSERT_STORE_COP_LABEL       \