Skip to content
Merged
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
7 changes: 4 additions & 3 deletions utf8.c
Original file line number Diff line number Diff line change
Expand Up @@ -4143,13 +4143,14 @@ Perl_inverse_folds_(pTHX_ const UV cp, U32 * first_folds_to,
* constructed with this size (to save space and memory), and we return
* pointers, so they must be this size */

PERL_ARGS_ASSERT_INVERSE_FOLDS_;

/* 'index' is guaranteed to be non-negative, as this is an inversion map
* that covers all possible inputs. See [perl #133365] */
* that covers all possible inputs. See [GH #16624] */
SSize_t index = _invlist_search(PL_utf8_foldclosures, cp);
assert(index >= 0);
I32 base = _Perl_IVCF_invmap[index];

PERL_ARGS_ASSERT_INVERSE_FOLDS_;

if (base == 0) { /* No fold */
*first_folds_to = 0;
*remaining_folds_to = NULL;
Expand Down
Loading