diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CORE/av.h')
-rw-r--r-- | Master/tlpkg/tlperl/lib/CORE/av.h | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/CORE/av.h b/Master/tlpkg/tlperl/lib/CORE/av.h index 8d18d25af15..391ae36d742 100644 --- a/Master/tlpkg/tlperl/lib/CORE/av.h +++ b/Master/tlpkg/tlperl/lib/CORE/av.h @@ -47,7 +47,10 @@ Null AV pointer. =head1 Array Manipulation Functions =for apidoc Am|int|AvFILL|AV* av -Same as C<av_len()>. Deprecated, use C<av_len()> instead. +Same as C<av_top_index()>. Deprecated, use C<av_top_index()> instead. + +=for apidoc Am|int|av_tindex|AV* av +Same as C<av_top_index()>. =cut */ @@ -75,6 +78,7 @@ Same as C<av_len()>. Deprecated, use C<av_len()> instead. #define AvFILL(av) ((SvRMAGICAL((const SV *) (av))) \ ? mg_size(MUTABLE_SV(av)) : AvFILLp(av)) +#define av_tindex(av) av_top_index(av) #define NEGATIVE_INDICES_VAR "NEGATIVE_INDICES" @@ -94,8 +98,8 @@ Perl equivalent: C<my @array;>. * Local variables: * c-indentation-style: bsd * c-basic-offset: 4 - * indent-tabs-mode: t + * indent-tabs-mode: nil * End: * - * ex: set ts=8 sts=4 sw=4 noet: + * ex: set ts=8 sts=4 sw=4 et: */ |