"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "regcomp.c" between
perl-5.32.0-RC0.tar.xz and perl-5.32.0-RC1.tar.xz

About: Perl (Practical Extraction and Report Language) is a high-level, general-purpose, interpreted, dynamic programming language. Release candidate.

regcomp.c  (perl-5.32.0-RC0.tar.xz)	:	regcomp.c  (perl-5.32.0-RC1.tar.xz)
skipping to change at line 4501		skipping to change at line 4501
S_unwind_scan_frames(pTHX_ const void *p)		S_unwind_scan_frames(pTHX_ const void *p)
{		{
scan_frame *f= (scan_frame *)p;		scan_frame *f= (scan_frame *)p;
do {		do {
scan_frame *n= f->next_frame;		scan_frame *n= f->next_frame;
Safefree(f);		Safefree(f);
f= n;		f= n;
} while (f);		} while (f);
}		}
		/* Follow the next-chain of the current node and optimize away
		all the NOTHINGs from it.
		*/
		STATIC void
		S_rck_elide_nothing(pTHX_ regnode *node)
		{
		dVAR;
		PERL_ARGS_ASSERT_RCK_ELIDE_NOTHING;
		if (OP(node) != CURLYX) {
		const int max = (reg_off_by_arg[OP(node)]
		? I32_MAX
		/* I32 may be smaller than U16 on CRAYs! */
		: (I32_MAX < U16_MAX ? I32_MAX : U16_MAX));
		int off = (reg_off_by_arg[OP(node)] ? ARG(node) : NEXT_OFF(node));
		int noff;
		regnode *n = node;
		/* Skip NOTHING and LONGJMP. */
		while (
		(n = regnext(n))
		&& (
		(PL_regkind[OP(n)] == NOTHING && (noff = NEXT_OFF(n)))
		|| ((OP(n) == LONGJMP) && (noff = ARG(n)))
		)
		&& off + noff < max
		) {
		off += noff;
		}
		if (reg_off_by_arg[OP(node)])
		ARG(node) = off;
		else
		NEXT_OFF(node) = off;
		}
		return;
		}
/* the return from this sub is the minimum length that could possibly match */		/* the return from this sub is the minimum length that could possibly match */
STATIC SSize_t		STATIC SSize_t
S_study_chunk(pTHX_ RExC_state_t *pRExC_state, regnode **scanp,		S_study_chunk(pTHX_ RExC_state_t *pRExC_state, regnode **scanp,
SSize_t *minlenp, SSize_t *deltap,		SSize_t *minlenp, SSize_t *deltap,
regnode *last,		regnode *last,
scan_data_t *data,		scan_data_t *data,
I32 stopparen,		I32 stopparen,
U32 recursed_depth,		U32 recursed_depth,
regnode_ssc *and_withp,		regnode_ssc *and_withp,
U32 flags, U32 depth)		U32 flags, U32 depth, bool was_mutate_ok)
/* scanp: Start here (read-write). */		/* scanp: Start here (read-write). */
/* deltap: Write maxlen-minlen here. */		/* deltap: Write maxlen-minlen here. */
/* last: Stop before this one. */		/* last: Stop before this one. */
/* data: string data about the pattern */		/* data: string data about the pattern */
/* stopparen: treat close N as END */		/* stopparen: treat close N as END */
/* recursed: which subroutines have we recursed into */		/* recursed: which subroutines have we recursed into */
/* and_withp: Valid if flags & SCF_DO_STCLASS_OR */		/* and_withp: Valid if flags & SCF_DO_STCLASS_OR */
{		{
dVAR;		dVAR;
SSize_t final_minlen;		SSize_t final_minlen;
skipping to change at line 4581		skipping to change at line 4619
}		}
}		}
Perl_re_printf( aTHX_ "\n");		Perl_re_printf( aTHX_ "\n");
}		}
);		);
while ( scan && OP(scan) != END && scan < last ){		while ( scan && OP(scan) != END && scan < last ){
UV min_subtract = 0; /* How mmany chars to subtract from the minimum		UV min_subtract = 0; /* How mmany chars to subtract from the minimum
node length to get a real minimum (because		node length to get a real minimum (because
the folded version may be shorter) */		the folded version may be shorter) */
bool unfolded_multi_char = FALSE;		bool unfolded_multi_char = FALSE;
bool mutate_ok = (frame && frame->in_gosub) ? 0 : 1;		/* avoid mutating ops if we are anywhere within the recursed or
		* enframed handling for a GOSUB: the outermost level will handle it.
		*/
		bool mutate_ok = was_mutate_ok && !(frame && frame->in_gosub);
/* Peephole optimizer: */		/* Peephole optimizer: */
DEBUG_STUDYDATA("Peep", data, depth, is_inf);		DEBUG_STUDYDATA("Peep", data, depth, is_inf);
DEBUG_PEEP("Peep", scan, depth, flags);		DEBUG_PEEP("Peep", scan, depth, flags);
/* The reason we do this here is that we need to deal with things like		/* The reason we do this here is that we need to deal with things like
* /(?:f)(?:o)(?:o)/ which cant be dealt with by the normal EXACT		* /(?:f)(?:o)(?:o)/ which cant be dealt with by the normal EXACT
* parsing code, as each (?:..) is handled by a different invocation of		* parsing code, as each (?:..) is handled by a different invocation of
* reg() -- Yves		* reg() -- Yves
*/		*/
if (PL_regkind[OP(scan)] == EXACT		if (PL_regkind[OP(scan)] == EXACT
&& OP(scan) != LEXACT		&& OP(scan) != LEXACT
&& OP(scan) != LEXACT_REQ8		&& OP(scan) != LEXACT_REQ8
&& mutate_ok		&& mutate_ok
) {		) {
join_exact(pRExC_state, scan, &min_subtract, &unfolded_multi_char,		join_exact(pRExC_state, scan, &min_subtract, &unfolded_multi_char,
0, NULL, depth + 1);		0, NULL, depth + 1);
}		}
/* Follow the next-chain of the current node and optimize		/* Follow the next-chain of the current node and optimize
away all the NOTHINGs from it. */		away all the NOTHINGs from it.
if (OP(scan) != CURLYX) {		*/
const int max = (reg_off_by_arg[OP(scan)]		rck_elide_nothing(scan);
? I32_MAX
/* I32 may be smaller than U16 on CRAYs! */
: (I32_MAX < U16_MAX ? I32_MAX : U16_MAX));
int off = (reg_off_by_arg[OP(scan)] ? ARG(scan) : NEXT_OFF(scan));
int noff;
regnode *n = scan;
/* Skip NOTHING and LONGJMP. */
while ( (n = regnext(n))
&& ( (PL_regkind[OP(n)] == NOTHING && (noff = NEXT_OFF(n)))
|| ((OP(n) == LONGJMP) && (noff = ARG(n))))
&& off + noff < max)
off += noff;
if (reg_off_by_arg[OP(scan)])
ARG(scan) = off;
else
NEXT_OFF(scan) = off;
}
/* The principal pseudo-switch. Cannot be a switch, since we look into		/* The principal pseudo-switch. Cannot be a switch, since we look into
* several different things. */		* several different things. */
if ( OP(scan) == DEFINEP ) {		if ( OP(scan) == DEFINEP ) {
SSize_t minlen = 0;		SSize_t minlen = 0;
SSize_t deltanext = 0;		SSize_t deltanext = 0;
SSize_t fake_last_close = 0;		SSize_t fake_last_close = 0;
I32 f = SCF_IN_DEFINE;		I32 f = SCF_IN_DEFINE;
StructCopy(&zero_scan_data, &data_fake, scan_data_t);		StructCopy(&zero_scan_data, &data_fake, scan_data_t);
skipping to change at line 4648		skipping to change at line 4671
next = regnext(scan);		next = regnext(scan);
scan = NEXTOPER(NEXTOPER(scan));		scan = NEXTOPER(NEXTOPER(scan));
DEBUG_PEEP("scan", scan, depth, flags);		DEBUG_PEEP("scan", scan, depth, flags);
DEBUG_PEEP("next", next, depth, flags);		DEBUG_PEEP("next", next, depth, flags);
/* we suppose the run is continuous, last=next...		/* we suppose the run is continuous, last=next...
* NOTE we dont use the return here! */		* NOTE we dont use the return here! */
/* DEFINEP study_chunk() recursion */		/* DEFINEP study_chunk() recursion */
(void)study_chunk(pRExC_state, &scan, &minlen,		(void)study_chunk(pRExC_state, &scan, &minlen,
&deltanext, next, &data_fake, stopparen,		&deltanext, next, &data_fake, stopparen,
recursed_depth, NULL, f, depth+1);		recursed_depth, NULL, f, depth+1, mutate_ok);
scan = next;		scan = next;
} else		} else
if (		if (
OP(scan) == BRANCH ||		OP(scan) == BRANCH ||
OP(scan) == BRANCHJ ||		OP(scan) == BRANCHJ ||
OP(scan) == IFTHEN		OP(scan) == IFTHEN
) {		) {
next = regnext(scan);		next = regnext(scan);
code = OP(scan);		code = OP(scan);
skipping to change at line 4716		skipping to change at line 4739
data_fake.start_class = &this_class;		data_fake.start_class = &this_class;
f = SCF_DO_STCLASS_AND;		f = SCF_DO_STCLASS_AND;
}		}
if (flags & SCF_WHILEM_VISITED_POS)		if (flags & SCF_WHILEM_VISITED_POS)
f |= SCF_WHILEM_VISITED_POS;		f |= SCF_WHILEM_VISITED_POS;
/* we suppose the run is continuous, last=next...*/		/* we suppose the run is continuous, last=next...*/
/* recurse study_chunk() for each BRANCH in an alternation * /		/* recurse study_chunk() for each BRANCH in an alternation * /
minnext = study_chunk(pRExC_state, &scan, minlenp,		minnext = study_chunk(pRExC_state, &scan, minlenp,
&deltanext, next, &data_fake, stopparen,		&deltanext, next, &data_fake, stopparen,
recursed_depth, NULL, f, depth+1);		recursed_depth, NULL, f, depth+1,
		mutate_ok);
if (min1 > minnext)		if (min1 > minnext)
min1 = minnext;		min1 = minnext;
if (deltanext == OPTIMIZE_INFTY) {		if (deltanext == OPTIMIZE_INFTY) {
is_inf = is_inf_internal = 1;		is_inf = is_inf_internal = 1;
max1 = OPTIMIZE_INFTY;		max1 = OPTIMIZE_INFTY;
} else if (max1 < minnext + deltanext)		} else if (max1 < minnext + deltanext)
max1 = minnext + deltanext;		max1 = minnext + deltanext;
scan = next;		scan = next;
if (data_fake.flags & (SF_HAS_PAR|SF_IN_PAR))		if (data_fake.flags & (SF_HAS_PAR|SF_IN_PAR))
skipping to change at line 5518		skipping to change at line 5542
if ((mincount > 1) || (maxcount > 1 && maxcount != REG_INFTY))		if ((mincount > 1) || (maxcount > 1 && maxcount != REG_INFTY))
f &= ~SCF_WHILEM_VISITED_POS;		f &= ~SCF_WHILEM_VISITED_POS;
/* This will finish on WHILEM, setting scan, or on NULL: */		/* This will finish on WHILEM, setting scan, or on NULL: */
/* recurse study_chunk() on loop bodies */		/* recurse study_chunk() on loop bodies */
minnext = study_chunk(pRExC_state, &scan, minlenp, &deltanext,		minnext = study_chunk(pRExC_state, &scan, minlenp, &deltanext,
last, data, stopparen, recursed_depth, NULL,		last, data, stopparen, recursed_depth, NULL,
(mincount == 0		(mincount == 0
? (f & ~SCF_DO_SUBSTR)		? (f & ~SCF_DO_SUBSTR)
: f)		: f)
,depth+1);		, depth+1, mutate_ok);
if (flags & SCF_DO_STCLASS)		if (flags & SCF_DO_STCLASS)
data->start_class = oclass;		data->start_class = oclass;
if (mincount == 0 || minnext == 0) {		if (mincount == 0 || minnext == 0) {
if (flags & SCF_DO_STCLASS_OR) {		if (flags & SCF_DO_STCLASS_OR) {
ssc_or(pRExC_state, data->start_class, (regnode_charclass *) &this_class);		ssc_or(pRExC_state, data->start_class, (regnode_charclass *) &this_class);
}		}
else if (flags & SCF_DO_STCLASS_AND) {		else if (flags & SCF_DO_STCLASS_AND) {
/* Switch to OR mode: cache the old value of		/* Switch to OR mode: cache the old value of
* data->start_class */		* data->start_class */
skipping to change at line 5564		skipping to change at line 5588
count */		count */
{		{
_WARN_HELPER(RExC_precomp_end, packWARN(WARN_REGEXP),		_WARN_HELPER(RExC_precomp_end, packWARN(WARN_REGEXP),
Perl_ck_warner(aTHX_ packWARN(WARN_REGEXP),		Perl_ck_warner(aTHX_ packWARN(WARN_REGEXP),
"Quantifier unexpected on zero-length expression "		"Quantifier unexpected on zero-length expression "
"in regex m/%" UTF8f "/",		"in regex m/%" UTF8f "/",
UTF8fARG(UTF, RExC_precomp_end - RExC_precomp,		UTF8fARG(UTF, RExC_precomp_end - RExC_precomp,
RExC_precomp)));		RExC_precomp)));
}		}
		if ( ( minnext > 0 && mincount >= SSize_t_MAX / minnext )
		|| min >= SSize_t_MAX - minnext * mincount )
		{
		FAIL("Regexp out of space");
		}
min += minnext * mincount;		min += minnext * mincount;
is_inf_internal |= deltanext == OPTIMIZE_INFTY		is_inf_internal |= deltanext == OPTIMIZE_INFTY
|| (maxcount == REG_INFTY && minnext + deltanext > 0);		|| (maxcount == REG_INFTY && minnext + deltanext > 0);
is_inf |= is_inf_internal;		is_inf |= is_inf_internal;
if (is_inf) {		if (is_inf) {
delta = OPTIMIZE_INFTY;		delta = OPTIMIZE_INFTY;
} else {		} else {
delta += (minnext + deltanext) * maxcount		delta += (minnext + deltanext) * maxcount
- minnext * mincount;		- minnext * mincount;
}		}
skipping to change at line 5686		skipping to change at line 5716
else		else
OP(nxt) = NOTHING; /* Cannot beautify */		OP(nxt) = NOTHING; /* Cannot beautify */
}		}
nxt1 = nnxt;		nxt1 = nnxt;
}		}
#endif		#endif
/* Optimize again: */		/* Optimize again: */
/* recurse study_chunk() on optimised CURLYX => CURLYM * /		/* recurse study_chunk() on optimised CURLYX => CURLYM * /
study_chunk(pRExC_state, &nxt1, minlenp, &deltanext, nxt,		study_chunk(pRExC_state, &nxt1, minlenp, &deltanext, nxt,
NULL, stopparen, recursed_depth, NULL, 0,		NULL, stopparen, recursed_depth, NULL, 0,
depth+1);		depth+1, mutate_ok);
}		}
else		else
oscan->flags = 0;		oscan->flags = 0;
}		}
else if ((OP(oscan) == CURLYX)		else if ((OP(oscan) == CURLYX)
&& (flags & SCF_WHILEM_VISITED_POS)		&& (flags & SCF_WHILEM_VISITED_POS)
/* See the comment on a similar expression above.		/* See the comment on a similar expression above.
However, this time it's not a subexpression		However, this time it's not a subexpression
we care about, but the expression itself. */		we care about, but the expression itself. */
&& (maxcount == REG_INFTY)		&& (maxcount == REG_INFTY)
skipping to change at line 5816		skipping to change at line 5846
? OPTIMIZE_INFTY		? OPTIMIZE_INFTY
: data->pos_min + data->pos_delta - last_chrs;		: data->pos_min + data->pos_delta - last_chrs;
}		}
data->cur_is_floating = 1; /* float */		data->cur_is_floating = 1; /* float */
}		}
SvREFCNT_dec(last_str);		SvREFCNT_dec(last_str);
}		}
if (data && (fl & SF_HAS_EVAL))		if (data && (fl & SF_HAS_EVAL))
data->flags |= SF_HAS_EVAL;		data->flags |= SF_HAS_EVAL;
optimize_curly_tail:		optimize_curly_tail:
if (OP(oscan) != CURLYX) {		rck_elide_nothing(oscan);
while (PL_regkind[OP(next = regnext(oscan))] == NOTHING
&& NEXT_OFF(next))
NEXT_OFF(oscan) += NEXT_OFF(next);
}
continue;		continue;
default:		default:
Perl_croak(aTHX_ "panic: unexpected varying REx opcode %d",		Perl_croak(aTHX_ "panic: unexpected varying REx opcode %d",
OP(scan));		OP(scan));
case REF:		case REF:
case CLUMP:		case CLUMP:
if (flags & SCF_DO_SUBSTR) {		if (flags & SCF_DO_SUBSTR) {
/* Cannot expect anything... */		/* Cannot expect anything... */
scan_commit(pRExC_state, data, minlenp, is_inf);		scan_commit(pRExC_state, data, minlenp, is_inf);
skipping to change at line 6119		skipping to change at line 6145
f |= SCF_DO_STCLASS_AND;		f |= SCF_DO_STCLASS_AND;
}		}
if (flags & SCF_WHILEM_VISITED_POS)		if (flags & SCF_WHILEM_VISITED_POS)
f |= SCF_WHILEM_VISITED_POS;		f |= SCF_WHILEM_VISITED_POS;
next = regnext(scan);		next = regnext(scan);
nscan = NEXTOPER(NEXTOPER(scan));		nscan = NEXTOPER(NEXTOPER(scan));
/* recurse study_chunk() for lookahead body */		/* recurse study_chunk() for lookahead body */
minnext = study_chunk(pRExC_state, &nscan, minlenp, &deltanext,		minnext = study_chunk(pRExC_state, &nscan, minlenp, &deltanext,
last, &data_fake, stopparen,		last, &data_fake, stopparen,
recursed_depth, NULL, f, depth+1);		recursed_depth, NULL, f, depth+1,
		mutate_ok);
if (scan->flags) {		if (scan->flags) {
if ( deltanext < 0		if ( deltanext < 0
|| deltanext > (I32) U8_MAX		|| deltanext > (I32) U8_MAX
|| minnext > (I32)U8_MAX		|| minnext > (I32)U8_MAX
|| minnext + deltanext > (I32)U8_MAX)		|| minnext + deltanext > (I32)U8_MAX)
{		{
FAIL2("Lookbehind longer than %" UVuf " not implemented",		FAIL2("Lookbehind longer than %" UVuf " not implemented",
(UV)U8_MAX);		(UV)U8_MAX);
}		}
skipping to change at line 6224		skipping to change at line 6251
}		}
if (flags & SCF_WHILEM_VISITED_POS)		if (flags & SCF_WHILEM_VISITED_POS)
f |= SCF_WHILEM_VISITED_POS;		f |= SCF_WHILEM_VISITED_POS;
next = regnext(scan);		next = regnext(scan);
nscan = NEXTOPER(NEXTOPER(scan));		nscan = NEXTOPER(NEXTOPER(scan));
/* positive lookahead study_chunk() recursion */		/* positive lookahead study_chunk() recursion */
*minnextp = study_chunk(pRExC_state, &nscan, minnextp,		*minnextp = study_chunk(pRExC_state, &nscan, minnextp,
&deltanext, last, &data_fake,		&deltanext, last, &data_fake,
stopparen, recursed_depth, NULL,		stopparen, recursed_depth, NULL,
f, depth+1);		f, depth+1, mutate_ok);
if (scan->flags) {		if (scan->flags) {
assert(0); /* This code has never been tested since this		assert(0); /* This code has never been tested since this
is normally not compiled */		is normally not compiled */
if ( deltanext < 0		if ( deltanext < 0
|| deltanext > (I32) U8_MAX		|| deltanext > (I32) U8_MAX
|| *minnextp > (I32)U8_MAX		|| *minnextp > (I32)U8_MAX
|| *minnextp + deltanext > (I32)U8_MAX)		|| *minnextp + deltanext > (I32)U8_MAX)
{		{
FAIL2("Lookbehind longer than %" UVuf " not implemented",		FAIL2("Lookbehind longer than %" UVuf " not implemented",
(UV)U8_MAX);		(UV)U8_MAX);
skipping to change at line 6391		skipping to change at line 6418
if (trie->jump[word]) {		if (trie->jump[word]) {
if (!nextbranch)		if (!nextbranch)
nextbranch = trie_node + trie->jump[0];		nextbranch = trie_node + trie->jump[0];
scan= trie_node + trie->jump[word];		scan= trie_node + trie->jump[word];
/* We go from the jump point to the branch that follows		/* We go from the jump point to the branch that follows
it. Note this means we need the vestigal unused		it. Note this means we need the vestigal unused
branches even though they arent otherwise used. */		branches even though they arent otherwise used. */
/* optimise study_chunk() for TRIE */		/* optimise study_chunk() for TRIE */
minnext = study_chunk(pRExC_state, &scan, minlenp,		minnext = study_chunk(pRExC_state, &scan, minlenp,
&deltanext, (regnode *)nextbranch, &data_fake,		&deltanext, (regnode *)nextbranch, &data_fake,
stopparen, recursed_depth, NULL, f, depth+1);		stopparen, recursed_depth, NULL, f, depth+1,
		mutate_ok);
}		}
if (nextbranch && PL_regkind[OP(nextbranch)]==BRANCH)		if (nextbranch && PL_regkind[OP(nextbranch)]==BRANCH)
nextbranch= regnext((regnode*)nextbranch);		nextbranch= regnext((regnode*)nextbranch);
if (min1 > (SSize_t)(minnext + trie->minlen))		if (min1 > (SSize_t)(minnext + trie->minlen))
min1 = minnext + trie->minlen;		min1 = minnext + trie->minlen;
if (deltanext == OPTIMIZE_INFTY) {		if (deltanext == OPTIMIZE_INFTY) {
is_inf = is_inf_internal = 1;		is_inf = is_inf_internal = 1;
max1 = OPTIMIZE_INFTY;		max1 = OPTIMIZE_INFTY;
} else if (max1 < (SSize_t)(minnext + deltanext + trie->maxl en))		} else if (max1 < (SSize_t)(minnext + deltanext + trie->maxl en))
skipping to change at line 7817		skipping to change at line 7845
if (reg(pRExC_state, 0, &flags, 1)) {		if (reg(pRExC_state, 0, &flags, 1)) {
/* Success!, But we may need to redo the parse knowing how many parens		/* Success!, But we may need to redo the parse knowing how many parens
* there actually are */		* there actually are */
if (IN_PARENS_PASS) {		if (IN_PARENS_PASS) {
flags |= RESTART_PARSE;		flags |= RESTART_PARSE;
}		}
/* We have that number in RExC_npar */		/* We have that number in RExC_npar */
RExC_total_parens = RExC_npar;		RExC_total_parens = RExC_npar;
		/* XXX For backporting, use long jumps if there is any possibility of
		* overflow */
		if (RExC_size > U16_MAX && ! RExC_use_BRANCHJ) {
		RExC_use_BRANCHJ = TRUE;
		flags |= RESTART_PARSE;
		}
}		}
else if (! MUST_RESTART(flags)) {		else if (! MUST_RESTART(flags)) {
ReREFCNT_dec(Rx);		ReREFCNT_dec(Rx);
Perl_croak(aTHX_ "panic: reg returned failure to re_op_compile, flags=%# " UVxf, (UV) flags);		Perl_croak(aTHX_ "panic: reg returned failure to re_op_compile, flags=%# " UVxf, (UV) flags);
}		}
/* Here, we either have success, or we have to redo the parse for some reaso n */		/* Here, we either have success, or we have to redo the parse for some reaso n */
if (MUST_RESTART(flags)) {		if (MUST_RESTART(flags)) {
/* It's possible to write a regexp in ascii that represents Unicode		/* It's possible to write a regexp in ascii that represents Unicode
skipping to change at line 8164		skipping to change at line 8199
DEBUG_RExC_seen();		DEBUG_RExC_seen();
/*		/*
* MAIN ENTRY FOR study_chunk() FOR m/PATTERN/		* MAIN ENTRY FOR study_chunk() FOR m/PATTERN/
* (NO top level branches)		* (NO top level branches)
*/		*/
minlen = study_chunk(pRExC_state, &first, &minlen, &fake,		minlen = study_chunk(pRExC_state, &first, &minlen, &fake,
scan + RExC_size, /* Up to end */		scan + RExC_size, /* Up to end */
&data, -1, 0, NULL,		&data, -1, 0, NULL,
SCF_DO_SUBSTR | SCF_WHILEM_VISITED_POS | stclass_flag		SCF_DO_SUBSTR | SCF_WHILEM_VISITED_POS | stclass_flag
| (restudied ? SCF_TRIE_DOING_RESTUDY : 0),		| (restudied ? SCF_TRIE_DOING_RESTUDY : 0),
0);		0, TRUE);
CHECK_RESTUDY_GOTO_butfirst(LEAVE_with_name("study_chunk"));		CHECK_RESTUDY_GOTO_butfirst(LEAVE_with_name("study_chunk"));
if ( RExC_total_parens == 1 && !data.cur_is_floating		if ( RExC_total_parens == 1 && !data.cur_is_floating
&& data.last_start_min == 0 && data.last_end > 0		&& data.last_start_min == 0 && data.last_end > 0
&& !RExC_seen_zerolen		&& !RExC_seen_zerolen
&& !(RExC_seen & REG_VERBARG_SEEN)		&& !(RExC_seen & REG_VERBARG_SEEN)
&& !(RExC_seen & REG_GPOS_SEEN)		&& !(RExC_seen & REG_GPOS_SEEN)
){		){
RExC_rx->extflags |= RXf_CHECK_ALL;		RExC_rx->extflags |= RXf_CHECK_ALL;
skipping to change at line 8290		skipping to change at line 8325
DEBUG_RExC_seen();		DEBUG_RExC_seen();
/*		/*
* MAIN ENTRY FOR study_chunk() FOR m/P1|P2|.../		* MAIN ENTRY FOR study_chunk() FOR m/P1|P2|.../
* (patterns WITH top level branches)		* (patterns WITH top level branches)
*/		*/
minlen = study_chunk(pRExC_state,		minlen = study_chunk(pRExC_state,
&scan, &minlen, &fake, scan + RExC_size, &data, -1, 0, NULL,		&scan, &minlen, &fake, scan + RExC_size, &data, -1, 0, NULL,
SCF_DO_STCLASS_AND|SCF_WHILEM_VISITED_POS|(restudied		SCF_DO_STCLASS_AND|SCF_WHILEM_VISITED_POS|(restudied
? SCF_TRIE_DOING_RESTUDY		? SCF_TRIE_DOING_RESTUDY
: 0),		: 0),
0);		0, TRUE);
CHECK_RESTUDY_GOTO_butfirst(NOOP);		CHECK_RESTUDY_GOTO_butfirst(NOOP);
RExC_rx->check_substr = NULL;		RExC_rx->check_substr = NULL;
RExC_rx->check_utf8 = NULL;		RExC_rx->check_utf8 = NULL;
RExC_rx->substrs->data[0].substr = NULL;		RExC_rx->substrs->data[0].substr = NULL;
RExC_rx->substrs->data[0].utf8_substr = NULL;		RExC_rx->substrs->data[0].utf8_substr = NULL;
RExC_rx->substrs->data[1].substr = NULL;		RExC_rx->substrs->data[1].substr = NULL;
RExC_rx->substrs->data[1].utf8_substr = NULL;		RExC_rx->substrs->data[1].utf8_substr = NULL;
End of changes. 16 change blocks.
37 lines changed or deleted		72 lines changed or added

---