Skip to content

Commit

Permalink
Remove SvRELEASE_IVX
Browse files Browse the repository at this point in the history
Now that PERL_OLD_COPY_ON_WRITE is gone, it no longer does anything.
  • Loading branch information
Father Chrysostomos committed Jun 29, 2015
1 parent b7adcee commit b326ddf
Showing 1 changed file with 2 additions and 8 deletions.
10 changes: 2 additions & 8 deletions sv.h
Expand Up @@ -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)
Expand All @@ -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), \
Expand Down Expand Up @@ -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) \
Expand Down

0 comments on commit b326ddf

Please sign in to comment.