This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
inline.h: Add comment.
authorKarl Williamson <khw@cpan.org>
Mon, 15 Jan 2018 22:15:14 +0000 (15:15 -0700)
committerKarl Williamson <khw@cpan.org>
Mon, 15 Jan 2018 22:20:47 +0000 (15:20 -0700)
inline.h

index 1abee4f..8dc2a62 100644 (file)
--- a/inline.h
+++ b/inline.h
@@ -502,6 +502,8 @@ S_variant_under_utf8_count(const U8* const s, const U8* const e)
 
 #  ifndef EBCDIC
 
+    /* Test if the string is long enough to use word-at-a-time.  (Logic is the
+     * same as for is_utf8_invariant_string()) */
     if ((STRLEN) (e - x) >= PERL_WORDSIZE
                           + PERL_WORDSIZE * PERL_IS_SUBWORD_ADDR(x)
                           - (PTR2nat(x) & PERL_WORD_BOUNDARY_MASK))