| line |
true |
false |
branch |
|
1413
|
0 |
9 |
if (len == 0) { |
|
1431
|
5 |
4 |
- (PTR2nat(x) & PERL_WORD_BOUNDARY_MASK)) |
|
1436
|
0 |
5 |
while (PTR2nat(x) & PERL_WORD_BOUNDARY_MASK) { |
|
1437
|
0 |
0 |
if (! UTF8_IS_INVARIANT(*x)) { |
|
1438
|
0 |
0 |
if (ep) { |
|
1450
|
5 |
0 |
if ((* (const PERL_UINTMAX_T *) x) & PERL_VARIANTS_WORD_MASK) { |
|
1454
|
0 |
5 |
if (! ep) { |
|
1475
|
0 |
0 |
} while (x + PERL_WORDSIZE <= send); |
|
1482
|
8 |
0 |
while (x < send) { |
|
1483
|
4 |
4 |
if (! UTF8_IS_INVARIANT(*x)) { |
|
1484
|
4 |
0 |
if (ep) { |
|
1585
|
0 |
5 |
ASSUME(word != 0); |
|
2193
|
0 |
9 |
if (len == 0) { |
|
2197
|
0 |
9 |
if (is_utf8_invariant_string_loc(s, len, &first_variant)) { |
|
2198
|
0 |
0 |
if (el) |
|
2201
|
0 |
0 |
if (ep) { |
|
2213
|
50 |
5 |
while (x < send) { |
|
2215
|
4 |
46 |
if (UNLIKELY(! cur_len)) { |
|
2222
|
0 |
9 |
if (el) |
|
2225
|
0 |
9 |
if (ep) { |
|
2433
|
0 |
50 |
PERL_IS_UTF8_CHAR_DFA(s0, e, PL_extended_utf8_dfa_tab, |
|
|
60 |
5 |
PERL_IS_UTF8_CHAR_DFA(s0, e, PL_extended_utf8_dfa_tab, |
|
|
15 |
45 |
PERL_IS_UTF8_CHAR_DFA(s0, e, PL_extended_utf8_dfa_tab, |
|
|
46 |
4 |
PERL_IS_UTF8_CHAR_DFA(s0, e, PL_extended_utf8_dfa_tab, |
|
|
4 |
0 |
PERL_IS_UTF8_CHAR_DFA(s0, e, PL_extended_utf8_dfa_tab, |
|
2450
|
2 |
2 |
if (*s0 != I8_TO_NATIVE_UTF8(0xFF)) { |
|
2661
|
0 |
244 |
return (a < b) ? -1 * (IV) utf8_length(a, b) : (IV) utf8_length(b, a); |
|
3483
|
167 |
0 |
if (gimme) |
|
3486
|
0 |
0 |
if (cxix < 0) |
|
3487
|
0 |
0 |
return PL_curstackinfo->si_type == PERLSI_SORT ? G_SCALAR: G_VOID; |