This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Add 'const' to parameter
authorKarl Williamson <khw@cpan.org>
Sun, 24 Aug 2014 00:40:06 +0000 (18:40 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 25 Aug 2014 17:13:41 +0000 (11:13 -0600)
embed.fnc
proto.h
regcomp.c

index 439109d..fa7c36d 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -2194,7 +2194,7 @@ Es        |void   |put_byte       |NN SV* sv|int c
 Es     |bool   |put_charclass_bitmap_innards|NN SV* sv     \
                                |NN char* bitmap            \
                                |NULLOK SV** bitmap_invlist
-Es     |void   |put_range      |NN SV* sv|UV start|UV end
+Es     |void   |put_range      |NN SV* sv|UV start|const UV end
 Es     |void   |dump_trie      |NN const struct _reg_trie_data *trie\
                                |NULLOK HV* widecharmap|NN AV *revcharmap\
                                |U32 depth
diff --git a/proto.h b/proto.h
index 167a70f..c7d704c 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -5392,7 +5392,7 @@ STATIC bool       S_put_charclass_bitmap_innards(pTHX_ SV* sv, char* bitmap, SV** bitm
 #define PERL_ARGS_ASSERT_PUT_CHARCLASS_BITMAP_INNARDS  \
        assert(sv); assert(bitmap)
 
-STATIC void    S_put_range(pTHX_ SV* sv, UV start, UV end)
+STATIC void    S_put_range(pTHX_ SV* sv, UV start, const UV end)
                        __attribute__nonnull__(pTHX_1);
 #define PERL_ARGS_ASSERT_PUT_RANGE     \
        assert(sv)
index dbf8c4a..a1beaf2 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -16698,7 +16698,7 @@ S_put_byte(pTHX_ SV *sv, int c)
 }
 
 STATIC void
-S_put_range(pTHX_ SV *sv, UV start, UV end)
+S_put_range(pTHX_ SV *sv, UV start, const UV end)
 {
 
     /* Appends to 'sv' a displayable version of the range of code points from