diff options
author | Nicholas Clark <nick@ccl4.org> | 2008-01-08 17:55:41 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2008-01-08 17:55:41 +0000 |
commit | 86d2c25d57d36407551f0841eab018075f2188bf (patch) | |
tree | f5646a6426b34f34ba1ca214c64644431b3b66bd /sv.h | |
parent | 937c6efd46f402a78d44f0b18f0e1e97c6c941d9 (diff) | |
download | perl-86d2c25d57d36407551f0841eab018075f2188bf.tar.gz |
With regexps stored as real RVs, we can eliminate SvREPADTMP().
Exterminate! Exterminate! Exterminate!
p4raw-id: //depot/perl@32902
Diffstat (limited to 'sv.h')
-rw-r--r-- | sv.h | 14 |
1 files changed, 2 insertions, 12 deletions
@@ -328,12 +328,10 @@ perform the upgrade if necessary. See C<svtype>. 3: For PVCV, whether CvUNIQUE(cv) refers to an eval or once only [CvEVAL(cv), CvSPECIAL(cv)] - 4: Whether the regexp pointer is in - fact an offset [SvREPADTMP(sv)] - 5: On a pad name SV, that slot in the + 4: On a pad name SV, that slot in the frame AV is a REFCNT'ed reference to a lexical from "outside". */ -#define SVphv_REHASH SVf_FAKE /* 6: On a PVHV, hash values are being +#define SVphv_REHASH SVf_FAKE /* 5: On a PVHV, hash values are being recalculated */ #define SVf_OOK 0x02000000 /* has valid offset value. For a PVHV this means that a hv_aux struct is present @@ -990,14 +988,6 @@ the scalar's value cannot change unless written to. #define SvTAIL_off(sv) (SvFLAGS(sv) &= ~SVpbm_TAIL) -#ifdef USE_ITHREADS -/* The following uses the FAKE flag to show that a regex pointer is infact - its own offset in the regexpad for ithreads */ -#define SvREPADTMP(sv) (SvFLAGS(sv) & SVf_FAKE) -#define SvREPADTMP_on(sv) (SvFLAGS(sv) |= SVf_FAKE) -#define SvREPADTMP_off(sv) (SvFLAGS(sv) &= ~SVf_FAKE) -#endif - #define SvPAD_TYPED(sv) \ ((SvFLAGS(sv) & (SVpad_NAME|SVpad_TYPED)) == (SVpad_NAME|SVpad_TYPED)) |