From 7548e4d37c2aaefd32fe0a9bcd83f8e71326dde1 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 4 Apr 2022 03:14:42 +0000 Subject: CTAN sync 202204040314 --- systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/av.h | 24 ++++++++++++++---------- 1 file changed, 14 insertions(+), 10 deletions(-) (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/av.h') diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/av.h b/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/av.h index 5e39c42ea1..41cb6fefd8 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/av.h +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/av.h @@ -37,22 +37,25 @@ struct xpvav { */ /* -=head1 Handy Values - =for apidoc ADmnU||Nullav Null AV pointer. (deprecated - use C<(AV *)NULL> instead) -=head1 Array Manipulation Functions +=for apidoc Am|SSize_t|AvFILL|AV* av +Same as C> or C>. + +=for apidoc Cm|SSize_t|AvFILLp|AV* av -=for apidoc Am|int|AvFILL|AV* av -Same as C or C. +If the array C is empty, this returns -1; otherwise it returns the maximum +value of the indices of all the array elements which are currently defined in +C. It does not handle magic, hence the C

private indication in its name. -=for apidoc av_tindex -Same as C. +=for apidoc Am|SV**|AvARRAY|AV* av +Returns a pointer to the AV's internal SV* array. -=for apidoc m|int|AvFILLp|AV* av +This is useful for doing pointer arithmetic on the array. +If all you need is to look up an array element, then prefer C. =cut */ @@ -80,8 +83,9 @@ Same as C. #define AvREALISH(av) (SvFLAGS(av) & (SVpav_REAL|SVpav_REIFY)) #define AvFILL(av) ((SvRMAGICAL((const SV *) (av))) \ - ? mg_size(MUTABLE_SV(av)) : AvFILLp(av)) -#define av_tindex(av) av_top_index(av) + ? mg_size(MUTABLE_SV(av)) : AvFILLp(av)) +#define av_top_index(av) AvFILL(av) +#define av_tindex(av) av_top_index(av) /* Note that it doesn't make sense to do this: * SvGETMAGIC(av); IV x = av_tindex_nomg(av); -- cgit v1.2.3