This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 16ef5c6) | patch
is_utf8_invariant_string(): small speed optimization
authorKarl Williamson <khw@cpan.org>
Tue, 12 Dec 2017 01:17:29 +0000 (18:17 -0700)
committerKarl Williamson <khw@cpan.org>
Tue, 12 Dec 2017 02:08:38 +0000 (19:08 -0700)
commit099e59a45fd0c4d6657bf384e0539691eb7b1f24
tree10a2d3047778465eecd2a6f02bf06bef2ec1f410tree | snapshot
parent16ef5c6e5c4a7d414ca7ef46cff9f8015fcd9079commit | diff
is_utf8_invariant_string(): small speed optimization

This adds a few shifing, masking, and integer arithmetic operations to a
conditional which in return makes sure that one branch is taken only
when it is going to do some good, avoiding a conditional in it.
ext/XS-APItest/APItest.xs diff | blob | blame | history
inline.h diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.