This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
reginclass: add some consts to prototype
authorKarl Williamson <public@khwilliamson.com>
Sun, 31 Oct 2010 16:37:55 +0000 (10:37 -0600)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 31 Oct 2010 22:51:13 +0000 (15:51 -0700)
embed.fnc
proto.h
regexec.c

index f900005..edee2f4 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1790,8 +1790,8 @@ Es        |U8     |regtail_study  |NN struct RExC_state_t *pRExC_state \
 ERs    |I32    |regmatch       |NN regmatch_info *reginfo|NN regnode *prog
 ERs    |I32    |regrepeat      |NN const regexp *prog|NN const regnode *p|I32 max|int depth
 ERs    |I32    |regtry         |NN regmatch_info *reginfo|NN char **startpos
-ERs    |bool   |reginclass     |NULLOK const regexp *prog|NN const regnode *n|NN const U8 *p|NULLOK STRLEN *lenp\
-                               |bool do_utf8sv_is_utf8
+ERs    |bool   |reginclass     |NULLOK const regexp * const prog|NN const regnode * const n|NN const U8 * const p|NULLOK STRLEN *lenp\
+                               |bool const do_utf8sv_is_utf8
 Es     |CHECKPOINT|regcppush   |I32 parenfloor
 Es     |char*  |regcppop       |NN const regexp *rex
 ERsn   |U8*    |reghop3        |NN U8 *s|I32 off|NN const U8 *lim
diff --git a/proto.h b/proto.h
index 0027180..8cc3281 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -6425,7 +6425,7 @@ STATIC U8*        S_reghopmaybe3(U8 *s, I32 off, const U8 *lim)
 #define PERL_ARGS_ASSERT_REGHOPMAYBE3  \
        assert(s); assert(lim)
 
-STATIC bool    S_reginclass(pTHX_ const regexp *prog, const regnode *n, const U8 *p, STRLEN *lenp, bool do_utf8sv_is_utf8)
+STATIC bool    S_reginclass(pTHX_ const regexp * const prog, const regnode * const n, const U8 * const p, STRLEN *lenp, bool const do_utf8sv_is_utf8)
                        __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_2)
                        __attribute__nonnull__(pTHX_3);
index c80e45a..2ef017a 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -6195,7 +6195,7 @@ Perl_regclass_swash(pTHX_ const regexp *prog, register const regnode* node, bool
  */
 
 STATIC bool
-S_reginclass(pTHX_ const regexp *prog, register const regnode *n, register const U8* p, STRLEN* lenp, register bool utf8_target)
+S_reginclass(pTHX_ const regexp * const prog, register const regnode * const n, register const U8* const p, STRLEN* lenp, register const bool utf8_target)
 {
     dVAR;
     const char flags = ANYOF_FLAGS(n);