summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/CORE/av.h
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CORE/av.h')
-rw-r--r--Master/tlpkg/tlperl/lib/CORE/av.h10
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:
*/