mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-27 01:44:43 +00:00
Code Issues Packages Projects Releases Wiki Activity

RExC_state_t: convert sawback to boolean

Browse Source
This commit is contained in:
Dagfinn Ilmari Mannsåker 2025-07-15 17:22:34 +01:00
parent f0ca3283b5
commit 0bb5b35abb
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
regcomp.c
View File

@ -1688,7 +1688,7 @@ Perl_re_op_compile(pTHX_ SV ** const patternp, int pat_count,
}
assert(!pRExC_state->runtime_code_qr);
RExC_sawback = 0;
RExC_sawback = false;
RExC_seen = 0;
RExC_maxlen = 0;
@ -2910,7 +2910,7 @@ S_handle_named_backref(pTHX_ RExC_state_t *pRExC_state,
RExC_rxi->data->data[num]=(void*)sv_dat;
SvREFCNT_inc_simple_void_NN(sv_dat);
}
RExC_sawback = 1;
RExC_sawback = true;
ret = reg2node(pRExC_state,
((! FOLD)
? REFN
@ -6203,7 +6203,7 @@ S_regatom(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth)
REQUIRE_PARENS_PASS;
}
}
RExC_sawback = 1;
RExC_sawback = true;
ret = reg2node(pRExC_state,
((! FOLD)
? REF

2
regcomp_internal.h
View File

@ -53,7 +53,7 @@ struct RExC_state_t {
regnode *emit_start; /* Start of emitted-code area */
regnode_offset emit; /* Code-emit pointer */
I32 naughty; /* How bad is this pattern? */
I32 sawback; /* Did we see \1, ...? */
bool sawback; /* Did we see \1, ...? */
SSize_t size; /* Number of regnode equivalents in
pattern */
Size_t sets_depth; /* Counts recursion depth of already-