This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp: Add/subtract consts to match embed.fnc
authorKarl Williamson <public@khwilliamson.com>
Mon, 7 Feb 2011 05:04:08 +0000 (22:04 -0700)
committerKarl Williamson <public@khwilliamson.com>
Mon, 7 Feb 2011 05:14:56 +0000 (22:14 -0700)
embed.fnc
proto.h
regcomp.c

index 01621e7..f447db7 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1285,7 +1285,7 @@ ApR       |NV     |str_to_version |NN SV *sv
 Ap     |SV*    |swash_init     |NN const char* pkg|NN const char* name|NN SV* listsv|I32 minbits|I32 none
 Ap     |UV     |swash_fetch    |NN SV *swash|NN const U8 *ptr|bool do_utf8
 EXMpR  |HV*    |_swash_inversion_hash  |NN SV* const swash
-EXMpR  |HV*    |_new_invlist   |const IV initial_size
+EXMpR  |HV*    |_new_invlist   |IV initial_size
 EXMpR  |HV*    |_swash_to_invlist      |NN SV* const swash
 EXMp   |void   |_append_range_to_invlist   |NN HV* const invlist|const UV start|const UV end
 #ifdef PERL_IN_REGCOMP_C
diff --git a/proto.h b/proto.h
index 8441ee8..bff673e 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -28,7 +28,7 @@ PERL_CALLCONV void    Perl__append_range_to_invlist(pTHX_ HV* const invlist, const
 #define PERL_ARGS_ASSERT__APPEND_RANGE_TO_INVLIST      \
        assert(invlist)
 
-PERL_CALLCONV HV*      Perl__new_invlist(pTHX_ const IV initial_size)
+PERL_CALLCONV HV*      Perl__new_invlist(pTHX_ IV initial_size)
                        __attribute__warn_unused_result__;
 
 PERL_CALLCONV HV*      Perl__swash_inversion_hash(pTHX_ SV* const swash)
index 1a03564..d986c32 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -5869,7 +5869,7 @@ S_invlist_trim(pTHX_ HV* const invlist)
 
 #ifndef PERL_IN_XSUB_RE
 void
-Perl__append_range_to_invlist(pTHX_ HV* invlist, const UV start, const UV end)
+Perl__append_range_to_invlist(pTHX_ HV* const invlist, const UV start, const UV end)
 {
    /* Subject to change or removal.  Append the range from 'start' to 'end' at
     * the end of the inversion list.  The range must be above any existing