Front page | perl.ponie.dev |
Postings from March 2004
Re: Poniedate #43
From:
Arthur Bergman
Date:
March 1, 2004 07:41
Subject:
Re: Poniedate #43
Message ID:
EA3BA706-6B96-11D8-B799-000A95A2734C@fotango.com
On 1 Mar 2004, at 15:27, Benjamin K Stuhl wrote:
>
> &(xav->xav_array) ? Shouldn't that just be ((SV**)(xav->xav_array)) to
> match the standard definition of AvARRAY? Typo or is there something
> more subtle going on?
>
> -- BKS
>
There is something more subtle going on.
the macro is
#define AvARRAY(av) ( * PL_macro_AvARRAY(aTHX_ (AV*)av) )
and then
SV*** Perl_macro_AvARRAY(aTHX_ AV* av) {
XPVAV* data = Parrot_PMC_get_pointer(PL_parrot, SvANY(sv));
return &(data->xav_array)
}
This is so you can do AvARRAY(av) = ;
Cheers
Arthur