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: 1d7e644) | patch
av_fetch(): optimise the negative index branch.
authorDavid Mitchell <davem@iabyn.com>
Wed, 17 Aug 2016 08:59:06 +0000 (09:59 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 17 Aug 2016 12:38:56 +0000 (13:38 +0100)
commit93a3e97518c1f1e5d6916e1550a36f0d39d520e6
tree278d63c94a5514c3140f9dd796552240d1206204tree | snapshot
parent1d7e6444bd515142acf34ef230b50f9d80ab9017commit | diff
av_fetch(): optimise the negative index branch.

For a negative index one conditional is redundant, since after determining
that key < 0 and recomputing key as (AvFILLp(av) - key), key can't
be > AvFILLp(av).
av.c diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.