diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2015-06-28 18:27:45 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2015-06-29 08:20:28 -0700 |
| commit | b326ddffeee24461c6f5622c518bb5a454b10935 (patch) | |
| tree | 09af879526bd1d3b171c0e9fbda92366da358df6 /sv.h | |
| parent | b7adcee4dcd174053afc53e0295922072726eaa4 (diff) | |
| download | perl-b326ddffeee24461c6f5622c518bb5a454b10935.tar.gz | |
Remove SvRELEASE_IVX
Now that PERL_OLD_COPY_ON_WRITE is gone, it no longer does anything.
Diffstat (limited to 'sv.h')
| -rw-r--r-- | sv.h | 10 |
1 files changed, 2 insertions, 8 deletions
@@ -857,7 +857,7 @@ Set the actual length of the string which is in the SV. See C<SvIV_set>. #define SvOKp(sv) (SvFLAGS(sv) & (SVp_IOK|SVp_NOK|SVp_POK)) #define SvIOKp(sv) (SvFLAGS(sv) & SVp_IOK) -#define SvIOKp_on(sv) (assert_not_glob(sv) SvRELEASE_IVX_(sv) \ +#define SvIOKp_on(sv) (assert_not_glob(sv) \ SvFLAGS(sv) |= SVp_IOK) #define SvNOKp(sv) (SvFLAGS(sv) & SVp_NOK) #define SvNOKp_on(sv) (assert_not_glob(sv) SvFLAGS(sv) |= SVp_NOK) @@ -866,7 +866,7 @@ Set the actual length of the string which is in the SV. See C<SvIV_set>. SvFLAGS(sv) |= SVp_POK) #define SvIOK(sv) (SvFLAGS(sv) & SVf_IOK) -#define SvIOK_on(sv) (assert_not_glob(sv) SvRELEASE_IVX_(sv) \ +#define SvIOK_on(sv) (assert_not_glob(sv) \ SvFLAGS(sv) |= (SVf_IOK|SVp_IOK)) #define SvIOK_off(sv) (SvFLAGS(sv) &= ~(SVf_IOK|SVp_IOK|SVf_IVisUV)) #define SvIOK_only(sv) (SvOK_off(sv), \ @@ -1864,12 +1864,6 @@ Like sv_utf8_upgrade, but doesn't do magic on C<sv>. #define SV_CHECK_THINKFIRST_COW_DROP(sv) if (SvTHINKFIRST(sv)) \ sv_force_normal_flags(sv, SV_COW_DROP_PV) -#define SvRELEASE_IVX(sv) 0 -/* This little game brought to you by the need to shut this warning up: -mg.c: In function 'Perl_magic_get': -mg.c:1024: warning: left-hand operand of comma expression has no effect -*/ -#define SvRELEASE_IVX_(sv) /**/ #ifdef PERL_NEW_COPY_ON_WRITE # define SvCANCOW(sv) \ (SvIsCOW(sv) \ |