Add av_tindex_nomg()
authorKarl Williamson <khw@cpan.org>
Mon, 7 Mar 2016 21:44:50 +0000 (14:44 -0700)
committerKarl Williamson <khw@cpan.org>
Tue, 8 Mar 2016 04:01:49 +0000 (21:01 -0700)
This is like av_tindex, but doesn't handle magic.  I'm not documenting
it for now, in case it turns out this was not a good idea.

Inspired from an observation by Tony Cook.

av.h

diff --git a/av.h b/av.h
index 30b8e52..9b9b373 100644 (file)
--- a/av.h
+++ b/av.h
@@ -81,6 +81,8 @@ Same as C<av_top_index()>.
                         ? mg_size(MUTABLE_SV(av)) : AvFILLp(av))
 #define av_tindex(av)   av_top_index(av)
 
+#define av_tindex_nomg(av)  (__ASSERT_(SvTYPE(av) == SVt_PVAV) AvFILLp(av))
+
 #define NEGATIVE_INDICES_VAR "NEGATIVE_INDICES"
 
 /*