From a3874608cd3bf4e33ccd66b8bb03b2aeda20af14 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Sun, 29 May 2005 19:35:38 +0000 Subject: Goodbye xav_arylen. You won't be missed that much. So now there's a buy 5 get one free offer on PVAV bodies. p4raw-id: //depot/perl@24619 --- av.h | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'av.h') diff --git a/av.h b/av.h index f8dffc9700..9ed171d84a 100644 --- a/av.h +++ b/av.h @@ -19,7 +19,6 @@ struct xpvav { } xiv_u; MAGIC* xmg_magic; /* magic for scalar array */ HV* xmg_stash; /* class package */ - SV* xav_arylen; }; #if !defined(PERL_EXPERIMENTAL_LAYOUT) @@ -35,7 +34,6 @@ typedef struct { } xiv_u; MAGIC* xmg_magic; /* magic for scalar array */ HV* xmg_stash; /* class package */ - SV* xav_arylen; } xpvav_allocated; #endif @@ -81,7 +79,7 @@ Same as C. Deprecated, use C instead. #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) (*((SV**)&((XPVAV*) SvANY(av))->xav_arylen)) +#define AvARYLEN(av) (*Perl_av_arylen_p(aTHX_ (AV*)av)) #define AvREAL(av) (SvFLAGS(av) & SVpav_REAL) #define AvREAL_on(av) (SvFLAGS(av) |= SVpav_REAL) -- cgit v1.2.1