diff options
| author | Artur Bergman <sky@nanisky.com> | 2001-08-30 08:22:31 +0000 |
|---|---|---|
| committer | Artur Bergman <sky@nanisky.com> | 2001-08-30 08:22:31 +0000 |
| commit | 1cc8b4c566f7901a54e4b576f09608beb4c81f86 (patch) | |
| tree | 09cb12649a6b54703bf0472745a36955c2fccf7d /sv.h | |
| parent | df8513ebccb346c715b201053776d8f657fee6c9 (diff) | |
| download | perl-1cc8b4c566f7901a54e4b576f09608beb4c81f86.tar.gz | |
Introduces SvREPADTMP(sv) that marks a repad SvIV as a offset
on the pad. Fixes coredumps in cleanups introduced by
Change 11755
p4raw-id: //depot/perl@11790
Diffstat (limited to 'sv.h')
| -rw-r--r-- | sv.h | 8 |
1 files changed, 8 insertions, 0 deletions
@@ -703,6 +703,14 @@ and leaves the UTF8 status as it was. #define SvVALID_on(sv) (SvFLAGS(sv) |= SVpbm_VALID) #define SvVALID_off(sv) (SvFLAGS(sv) &= ~SVpbm_VALID) +#ifdef USE_ITHREADS +/* The following uses the FAKE flag to show that a regex pointer is infact + it's 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 SvRV(sv) ((XRV*) SvANY(sv))->xrv_rv #define SvRVx(sv) SvRV(sv) |