diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-09-23 06:24:50 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-09-24 22:05:36 -0700 |
| commit | 145bf8eec5be8c17bd592ec8d28efb239bdafa93 (patch) | |
| tree | 9c0676d6c0128eebaf0ac8eed3c1aa625f55981f /sv.h | |
| parent | a9f1090bfdfd2dc65f4d48a010d12f08dfeeedb5 (diff) | |
| download | perl-145bf8eec5be8c17bd592ec8d28efb239bdafa93.tar.gz | |
Remove most uses of PADMY
SVs_PADMY is now 0, and SvPADMY means !SvPADTMP.
Diffstat (limited to 'sv.h')
| -rw-r--r-- | sv.h | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -1052,13 +1052,15 @@ sv_force_normal does nothing. #define SVs_PADMY 0 #define SvPADMY(sv) !(SvFLAGS(sv) & SVs_PADTMP) -#define SvPADMY_on(sv) SvPADTMP_off(sv) +#ifndef PERL_CORE +# define SvPADMY_on(sv) SvPADTMP_off(sv) +#endif #define SvPADTMP(sv) (SvFLAGS(sv) & (SVs_PADTMP)) #define SvPADSTALE(sv) (SvFLAGS(sv) & (SVs_PADSTALE)) -#define SvPADTMP_on(sv) S_SvPADTMP_on(MUTABLE_SV(sv)) -#define SvPADTMP_off(sv) S_SvPADTMP_off(MUTABLE_SV(sv)) +#define SvPADTMP_on(sv) (SvFLAGS(sv) |= SVs_PADTMP) +#define SvPADTMP_off(sv) (SvFLAGS(sv) &= ~SVs_PADTMP) #define SvPADSTALE_on(sv) S_SvPADSTALE_on(MUTABLE_SV(sv)) #define SvPADSTALE_off(sv) S_SvPADSTALE_off(MUTABLE_SV(sv)) |