56 Perl_av_count(pTHX_ AV *av)  in Perl_av_count()  argument
59     assert(SvTYPE(av) == SVt_PVAV);  in Perl_av_count()
61     return AvFILL(av) + 1;  in Perl_av_count()
86 Perl_av_store_simple(pTHX_ AV *av, SSize_t key, SV *val)  in Perl_av_store_simple()  argument
91     assert(SvTYPE(av) == SVt_PVAV);  in Perl_av_store_simple()
92     assert(!SvMAGICAL(av));  in Perl_av_store_simple()
93     assert(!SvREADONLY(av));  in Perl_av_store_simple()
94     assert(AvREAL(av));  in Perl_av_store_simple()
97     ary = AvARRAY(av);  in Perl_av_store_simple()
99     if (AvFILLp(av) < key) {  in Perl_av_store_simple()
100         if (key > AvMAX(av)) {  in Perl_av_store_simple()
101             av_extend(av,key);  in Perl_av_store_simple()
102             ary = AvARRAY(av);  in Perl_av_store_simple()
104         AvFILLp(av) = key;  in Perl_av_store_simple()
131 Perl_av_fetch_simple(pTHX_ AV *av, SSize_t key, I32 lval)  in Perl_av_fetch_simple()  argument
134     assert(SvTYPE(av) == SVt_PVAV);  in Perl_av_fetch_simple()
135     assert(!SvMAGICAL(av));  in Perl_av_fetch_simple()
136     assert(!SvREADONLY(av));  in Perl_av_fetch_simple()
137     assert(AvREAL(av));  in Perl_av_fetch_simple()
140     if ( (key > AvFILLp(av)) || !AvARRAY(av)[key]) {  in Perl_av_fetch_simple()
141         return lval ? av_store_simple(av,key,newSV_type(SVt_NULL)) : NULL;  in Perl_av_fetch_simple()
143         return &AvARRAY(av)[key];  in Perl_av_fetch_simple()
164 Perl_av_push_simple(pTHX_ AV *av, SV *val)  in Perl_av_push_simple()  argument
167     assert(SvTYPE(av) == SVt_PVAV);  in Perl_av_push_simple()
168     assert(!SvMAGICAL(av));  in Perl_av_push_simple()
169     assert(!SvREADONLY(av));  in Perl_av_push_simple()
170     assert(AvREAL(av));  in Perl_av_push_simple()
171     assert(AvFILLp(av) > -2);  in Perl_av_push_simple()
173     (void)av_store_simple(av,AvFILLp(av)+1,val);  in Perl_av_push_simple()
202     AV * const av = newAV();  in Perl_av_new_alloc()  local
208     AvALLOC(av) = ary;  in Perl_av_new_alloc()
209     AvARRAY(av) = ary;  in Perl_av_new_alloc()
210     AvMAX(av) = size - 1;  in Perl_av_new_alloc()
215     return av;  in Perl_av_new_alloc()
222 Perl_av_remove_offset(pTHX_ AV *av)  in Perl_av_remove_offset()  argument
225     assert(AvFILLp(av) == -1);  in Perl_av_remove_offset()
226     SSize_t i = AvARRAY(av) - AvALLOC(av);  in Perl_av_remove_offset()
228         AvARRAY(av) = AvALLOC(av);  in Perl_av_remove_offset()
229         AvMAX(av)   += i;  in Perl_av_remove_offset()
231         Zero(AvALLOC(av), i, SV*);  in Perl_av_remove_offset()
3684     AV *av;  in Perl_cx_popsub_args()  local
3693     av = MUTABLE_AV(PAD_SVl(0));  in Perl_cx_popsub_args()
3694     if (!SvMAGICAL(av) && SvREFCNT(av) == 1  in Perl_cx_popsub_args()
3696         && !AvREAL(av)  in Perl_cx_popsub_args()
3699         clear_defarray_simple(av);  in Perl_cx_popsub_args()
3702         clear_defarray(av, 0);  in Perl_cx_popsub_args()
3952 Perl_clear_defarray_simple(pTHX_ AV *av)  in Perl_clear_defarray_simple()  argument
3956     assert(SvTYPE(av) == SVt_PVAV);  in Perl_clear_defarray_simple()
3957     assert(!SvREADONLY(av));  in Perl_clear_defarray_simple()
3958     assert(!SvMAGICAL(av));  in Perl_clear_defarray_simple()
3959     assert(SvREFCNT(av) == 1);  in Perl_clear_defarray_simple()
3962     assert(AvREAL(av));  in Perl_clear_defarray_simple()
3965     SSize_t i = AvFILLp(av);  in Perl_clear_defarray_simple()
3967         SV *sv = AvARRAY(av)[i];  in Perl_clear_defarray_simple()
3968         AvARRAY(av)[i--] = NULL;  in Perl_clear_defarray_simple()  local
3972     assert(!AvREAL(av));  in Perl_clear_defarray_simple()
3974     AvFILLp(av) = -1;  in Perl_clear_defarray_simple()
3975     Perl_av_remove_offset(aTHX_ av);  in Perl_clear_defarray_simple()