regexec.c: Add a const to a function parameter

This value isn't changed by the function

diff --git a/embed.fnc b/embed.fnc
index 967fdfc..f8c01e6 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -2350,7 +2350,7 @@ Es        |void   |regcppop       |NN regexp *rex\
 ERsn   |U8*    |reghop3        |NN U8 *s|SSize_t off|NN const U8 *lim
 ERsn   |U8*    |reghop4        |NN U8 *s|SSize_t off|NN const U8 *llim \
                                |NN const U8 *rlim
-ERsn   |U8*    |reghopmaybe3   |NN U8 *s|SSize_t off|NN const U8 *lim
+ERsn   |U8*    |reghopmaybe3   |NN U8 *s|SSize_t off|NN const U8 * const lim
 ERs    |char*  |find_byclass   |NN regexp * prog|NN const regnode *c \
                                |NN char *s|NN const char *strend \
                                |NULLOK regmatch_info *reginfo

diff --git a/proto.h b/proto.h
index 4ad4b93..8b81e50 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -5286,7 +5286,7 @@ STATIC U8*        S_reghop4(U8 *s, SSize_t off, const U8 *llim, const U8 *rlim)
 #define PERL_ARGS_ASSERT_REGHOP4       \
        assert(s); assert(llim); assert(rlim)
 
-STATIC U8*     S_reghopmaybe3(U8 *s, SSize_t off, const U8 *lim)
+STATIC U8*     S_reghopmaybe3(U8 *s, SSize_t off, const U8 * const lim)
                        __attribute__warn_unused_result__;
 #define PERL_ARGS_ASSERT_REGHOPMAYBE3  \
        assert(s); assert(lim)

diff --git a/regexec.c b/regexec.c
index 2822dff..fdcffc5 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -9263,7 +9263,7 @@ S_reghop4(U8 *s, SSize_t off, const U8* llim, const U8* rlim)
  * char pos */
 
 STATIC U8 *
-S_reghopmaybe3(U8* s, SSize_t off, const U8* lim)
+S_reghopmaybe3(U8* s, SSize_t off, const U8* const lim)
 {
     PERL_ARGS_ASSERT_REGHOPMAYBE3;