X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fre-engine-Hooks.git;a=blobdiff_plain;f=src%2F5019002%2Finline_invlist.c;fp=src%2F5019002%2Finline_invlist.c;h=68ef83e1c822d64ab19ef8cd12527639d2d64af2;hp=470659bea84ae0284167fbd21c3e814e26db0f02;hb=3844497d56f979a0275bf10b2a322c9e9baab2bf;hpb=7a8e4ba50dd698a702ecce6a8c9c4d793fa690ac diff --git a/src/5019002/inline_invlist.c b/src/5019002/inline_invlist.c index 470659b..68ef83e 100644 --- a/src/5019002/inline_invlist.c +++ b/src/5019002/inline_invlist.c @@ -20,37 +20,37 @@ 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 contain code point as part of the set? */ + /* Does contain code point 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)