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

regcomp: regnode ANYOFHbbm was broken on EBCDIC

Browse Source 
It needs the new constant created in the previous commit
This commit is contained in:
Karl Williamson 2024-08-02 14:14:01 -06:00
parent 1bc1c9a059
commit 17beddaeb4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
regcomp.c
View File

@ -12179,7 +12179,7 @@ S_optimize_regclass(pTHX_
/* The base code point is from the start byte */
TWO_BYTE_UTF8_TO_NATIVE(low_utf8[0],
UTF_CONTINUATION_MARK | 0),
UTF8_MIN_CONTINUATION_BYTE),
((struct regnode_bbm *) REGNODE_p(*ret))->bitmap,
REGNODE_BBM_BITMAP_LEN);
@ -13195,7 +13195,7 @@ Perl_get_ANYOFHbbm_contents(pTHX_ const regnode * n) {
/* The base cp is from the start byte plus a zero continuation */
TWO_BYTE_UTF8_TO_NATIVE(FIRST_BYTE((struct regnode_bbm *) n),
UTF_CONTINUATION_MARK | 0));
UTF8_MIN_CONTINUATION_BYTE));
return cp_list;
}
#endif /* PERL_RE_BUILD_AUX */