Silence compiler warnings
authorSteve Hay <steve.m.hay@googlemail.com>
Sat, 18 Sep 2010 16:02:07 +0000 (17:02 +0100)
committerSteve Hay <steve.m.hay@googlemail.com>
Sat, 18 Sep 2010 16:02:07 +0000 (17:02 +0100)
embed.fnc
hv.c
proto.h

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       \