PERL_STATIC_INLINE bool*
S_get_invlist_offset_addr(pTHX_ SV* invlist)
{
- /* Return the address of the field that says whether the inversion list is
- * offset (it contains 1) or not (contains 0) */
+ /* Return the address of the field that says whether the inversion list is
+ * offset (it contains 1) or not (contains 0) */
- PERL_ARGS_ASSERT_GET_INVLIST_OFFSET_ADDR;
+ PERL_ARGS_ASSERT_GET_INVLIST_OFFSET_ADDR;
- return &(((XINVLIST*) SvANY(invlist))->is_offset);
+ return &(((XINVLIST*) SvANY(invlist))->is_offset);
}
PERL_STATIC_INLINE UV
S__invlist_len(pTHX_ SV* const invlist)
{
- /* Returns the current number of elements stored in the inversion list's
- * array */
+ /* Returns the current number of elements stored in the inversion list's
+ * array */
- PERL_ARGS_ASSERT__INVLIST_LEN;
+ PERL_ARGS_ASSERT__INVLIST_LEN;
- return (SvCUR(invlist) == 0)
- ? 0
- : FROM_INTERNAL_SIZE(SvCUR(invlist)) - *get_invlist_offset_addr(invlist);
+ return (SvCUR(invlist) == 0)
+ ? 0
+ : FROM_INTERNAL_SIZE(SvCUR(invlist)) - *get_invlist_offset_addr(invlist);
}
PERL_STATIC_INLINE bool
S__invlist_contains_cp(pTHX_ SV* const invlist, const UV cp)
{
- /* Does <invlist> contain code point <cp> as part of the set? */
+ /* Does <invlist> contain code point <cp> as part of the set? */
- IV index = _invlist_search(invlist, cp);
+ IV index = _invlist_search(invlist, cp);
- PERL_ARGS_ASSERT__INVLIST_CONTAINS_CP;
+ PERL_ARGS_ASSERT__INVLIST_CONTAINS_CP;
- return index >= 0 && ELEMENT_RANGE_MATCHES_INVLIST(index);
+ return index >= 0 && ELEMENT_RANGE_MATCHES_INVLIST(index);
}
# if defined(PERL_IN_UTF8_C) || defined(PERL_IN_REGEXEC_C)