diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2002-12-19 19:00:21 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2003-01-03 11:06:40 +0000 |
| commit | d9d18af660f47fb8e7eedfe8204daab3270e514f (patch) | |
| tree | 6848c806a377785585348c08e5b91d127aea32bb /sv.h | |
| parent | 235cc2e3b03f7c8478aa5ccdbe27e0aaf735bb46 (diff) | |
| download | perl-d9d18af660f47fb8e7eedfe8204daab3270e514f.tar.gz | |
new flag SvPADSTALE
Message-ID: <20021219190021.D9530@fdgroup.com>
p4raw-id: //depot/perl@18410
Diffstat (limited to 'sv.h')
| -rw-r--r-- | sv.h | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -148,7 +148,7 @@ perform the upgrade if necessary. See C<svtype>. #define SvUPGRADE(sv, mt) (SvTYPE(sv) >= mt || sv_upgrade(sv, mt)) -/* XXX spare */ +#define SVs_PADSTALE 0x00000100 /* lexical has gone out of scope */ #define SVs_PADTMP 0x00000200 /* in use as tmp */ #define SVs_PADMY 0x00000400 /* in use a "my" variable */ #define SVs_TEMP 0x00000800 /* string is stealable? */ @@ -637,6 +637,10 @@ and leaves the UTF8 status as it was. #define SvTHINKFIRST(sv) (SvFLAGS(sv) & SVf_THINKFIRST) +#define SvPADSTALE(sv) (SvFLAGS(sv) & SVs_PADSTALE) +#define SvPADSTALE_on(sv) (SvFLAGS(sv) |= SVs_PADSTALE) +#define SvPADSTALE_off(sv) (SvFLAGS(sv) &= ~SVs_PADSTALE) + #define SvPADTMP(sv) (SvFLAGS(sv) & SVs_PADTMP) #define SvPADTMP_on(sv) (SvFLAGS(sv) |= SVs_PADTMP) #define SvPADTMP_off(sv) (SvFLAGS(sv) &= ~SVs_PADTMP) |