From c2b03b8c6e4ce64a629df6346d1cd5459b566267 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Sun, 6 Feb 2011 22:04:08 -0700 Subject: [PATCH] regcomp: Add/subtract consts to match embed.fnc --- embed.fnc | 2 +- proto.h | 2 +- regcomp.c | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/embed.fnc b/embed.fnc index 01621e7..f447db7 100644 --- 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 --- 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) diff --git a/regcomp.c b/regcomp.c index 1a03564..d986c32 100644 --- 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 -- 2.7.4