From 37acfcba9f5180cec9aa03bf3457caab7114230c Mon Sep 17 00:00:00 2001 From: David Mitchell Date: Thu, 8 Dec 2011 15:11:08 +0000 Subject: re_op_compile(): rename pm_flags to rx_flags The orig_pm_flags argument and its modified copy, pm_flags, actually contain bits related to REGEXPs (i.e. RXf_*) rather than PMOPs (i.e. PMf_*); although there is some overlap between the two sets of bit flags. Rename the variables to make this less unclear. Ditto for re_compile(). --- proto.h | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'proto.h') diff --git a/proto.h b/proto.h index 3db372433d..1a1f0958ba 100644 --- a/proto.h +++ b/proto.h @@ -3133,7 +3133,7 @@ PERL_CALLCONV void Perl_qerror(pTHX_ SV* err) #define PERL_ARGS_ASSERT_QERROR \ assert(err) -PERL_CALLCONV REGEXP* Perl_re_compile(pTHX_ SV * const pattern, U32 flags) +PERL_CALLCONV REGEXP* Perl_re_compile(pTHX_ SV * const pattern, U32 orig_rx_flags) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_RE_COMPILE \ assert(pattern) @@ -3150,7 +3150,7 @@ PERL_CALLCONV SV* Perl_re_intuit_string(pTHX_ REGEXP *const r) #define PERL_ARGS_ASSERT_RE_INTUIT_STRING \ assert(r) -PERL_CALLCONV REGEXP* Perl_re_op_compile(pTHX_ SV ** const patternp, int pat_count, OP *expr, const regexp_engine* eng, REGEXP *VOL old_re, int *is_bare_re, U32 flags); +PERL_CALLCONV REGEXP* Perl_re_op_compile(pTHX_ SV ** const patternp, int pat_count, OP *expr, const regexp_engine* eng, REGEXP *VOL old_re, int *is_bare_re, U32 rx_flags); PERL_CALLCONV Malloc_t Perl_realloc(Malloc_t where, MEM_SIZE nbytes) __attribute__malloc__ __attribute__warn_unused_result__; -- cgit v1.2.1