diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-05-29 19:35:38 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-05-29 19:35:38 +0000 |
| commit | a3874608cd3bf4e33ccd66b8bb03b2aeda20af14 (patch) | |
| tree | 1dd180911ed35cffcf3ddf5a647ffaa26a16c150 /av.h | |
| parent | 345d1b6f8b9605e2699c84cc5fc9a99a40bc982a (diff) | |
| download | perl-a3874608cd3bf4e33ccd66b8bb03b2aeda20af14.tar.gz | |
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
Diffstat (limited to 'av.h')
| -rw-r--r-- | av.h | 4 |
1 files changed, 1 insertions, 3 deletions
@@ -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<av_len()>. Deprecated, use C<av_len()> 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) |