This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
embed.fnc: Add const to remove compiler warning
authorKarl Williamson <public@khwilliamson.com>
Wed, 25 Jul 2012 00:35:40 +0000 (18:35 -0600)
committerKarl Williamson <public@khwilliamson.com>
Wed, 25 Jul 2012 03:13:43 +0000 (21:13 -0600)
This should have been declared const.

embed.fnc
proto.h

index e4e2649..6e53ba7 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1421,7 +1421,7 @@ EXp       |SV*    |_core_swash_init|NN const char* pkg|NN const char* name|NN SV* listsv|
                 |I32 none|bool return_if_undef|NULLOK SV* invlist \
                |bool passed_in_invlist_has_user_defined_property
 EXMpR  |SV*    |_invlist_contents|NN SV* const invlist
-EXMpR  |bool   |_is_swash_user_defined|NN SV *swash
+EXMpR  |bool   |_is_swash_user_defined|NN SV* const swash
 #endif
 Ap     |void   |taint_env
 Ap     |void   |taint_proper   |NULLOK const char* f|NN const char *const s
diff --git a/proto.h b/proto.h
index 9c9030a..0d0b921 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -6684,7 +6684,7 @@ PERL_CALLCONV SV* Perl__invlist_contents(pTHX_ SV* const invlist)
 #define PERL_ARGS_ASSERT__INVLIST_CONTENTS     \
        assert(invlist)
 
-PERL_CALLCONV bool     Perl__is_swash_user_defined(pTHX_ SV *swash)
+PERL_CALLCONV bool     Perl__is_swash_user_defined(pTHX_ SV* const swash)
                        __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
 #define PERL_ARGS_ASSERT__IS_SWASH_USER_DEFINED        \