From 5451ab83d9bdb3ce14742ee1356f0ee28c53b7ed Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Tue, 24 Jul 2012 18:35:40 -0600 Subject: [PATCH] embed.fnc: Add const to remove compiler warning This should have been declared const. --- embed.fnc | 2 +- proto.h | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/embed.fnc b/embed.fnc index e4e2649..6e53ba7 100644 --- 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 --- 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 \ -- 2.7.4