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

regexec.c: Use utf8_hop_safe() instead of rolling our own

Browse Source
This commit is contained in:
Karl Williamson 2022-07-10 14:29:27 -06:00
parent 2599b98cb9
commit b677f49eae
1 changed files with 1 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
regexec.c
View File

@ -11146,26 +11146,7 @@ S_reghop4(U8 *s, SSize_t off, const U8* llim, const U8* rlim)
{
PERL_ARGS_ASSERT_REGHOP4;
if (off >= 0) {
while (off-- && s < rlim) {
/* XXX could check well-formedness here */
s += UTF8SKIP(s);
}
}
else {
while (off++ && s > llim) {
s--;
if (UTF8_IS_CONTINUED(*s)) {
while (s > llim && UTF8_IS_CONTINUATION(*s))
s--;
if (! UTF8_IS_START(*s)) {
Perl_croak_nocontext("Malformed UTF-8 character (fatal)");
}
}
/* XXX could check well-formedness here */
}
}
return s;
return utf8_hop_safe(s, off, llim, rlim);
}
/* like reghop3, but returns NULL on overrun, rather than returning last