diff options
| author | Andy Lester <andy@petdance.com> | 2005-04-19 06:38:44 -0500 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2005-04-19 23:43:54 +0000 |
| commit | b21dc0313d6db8e825aa8b1c17bfe601ada00827 (patch) | |
| tree | 460f20c7a25c53c5df6b1616371d2efef512be7d /pad.h | |
| parent | 4d4948808560f73c9be361930114c89552276998 (diff) | |
| download | perl-b21dc0313d6db8e825aa8b1c17bfe601ada00827.tar.gz | |
pad_compname_type(), takes care of a clunky macro
Message-Id: <20050419163844.GA19747@petdance.com>
p4raw-id: //depot/perl@24256
Diffstat (limited to 'pad.h')
| -rw-r--r-- | pad.h | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -216,10 +216,7 @@ ling pad (lvalue) to C<gen>. Note that C<SvCUR_set> is hijacked for this purpos #define PAD_COMPNAME_FLAGS(po) SvFLAGS(*av_fetch(PL_comppad_name, (po), FALSE)) #define PAD_COMPNAME_PV(po) SvPV_nolen(*av_fetch(PL_comppad_name, (po), FALSE)) -/* XXX DAPM yuk - using av_fetch twice. Is there a better way? */ -#define PAD_COMPNAME_TYPE(po) \ - ((SvFLAGS(*av_fetch(PL_comppad_name, (po), FALSE)) & SVpad_TYPED) \ - ? (SvSTASH(*av_fetch(PL_comppad_name, (po), FALSE))) : Nullhv) +#define PAD_COMPNAME_TYPE(po) pad_compname_type(po) #define PAD_COMPNAME_OURSTASH(po) \ (GvSTASH(*av_fetch(PL_comppad_name, (po), FALSE))) |