Add av_tindex_nomg()

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.

1 files changed, 2 insertions, 0 deletions

diff --git a/av.h b/av.h
index 30b8e52f30..9b9b373663 100644
--- 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"
 
 /*