Help for this page

Select Code to Download


  1. or download this
       if (AvMAX(thing) != -1) {
          /* an array with 10 slots has AvMax() set to 9 - te 2007-04-22 *
    +/
          total_size += sizeof(SV *) * (AvMAX(thing) + 1);
    
  2. or download this
    #define AvMAX(av)    ((XPVAV*)  SvANY(av))->xav_max
    
  3. or download this
    #define AvARRAY(av)    ((av)->sv_u.svu_array)
    #define AvALLOC(av)    (*((SV***)&((XPVAV*)  SvANY(av))->xav_alloc))
    #define AvMAX(av)    ((XPVAV*)  SvANY(av))->xav_max
    #define AvFILLp(av)    ((XPVAV*)  SvANY(av))->xav_fill
    #define AvARYLEN(av)    (*Perl_av_arylen_p(aTHX_ MUTABLE_AV(av)))
    
  4. or download this
    #define AvFILL(av)    ((SvRMAGICAL((const SV *) (av))) \
                 ? mg_size(MUTABLE_SV(av)) : AvFILLp(av))