diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2004-08-01 14:46:48 +0200 |
|---|---|---|
| committer | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2004-09-08 16:49:59 +0000 |
| commit | 0c34ef67a6aacb77e2b5421df56439f11f4d78c0 (patch) | |
| tree | 43e67efbabfb5340312bcb8c06c91ea20c158930 /sv.h | |
| parent | 59ca07c7edc9811274fdf723986979460325278a (diff) | |
| download | perl-0c34ef67a6aacb77e2b5421df56439f11f4d78c0.tar.gz | |
SvO?OK_off()'s return value
Message-Id: <20040801124648.7f9b3cee@r2d2>
Move (void) casts into SvOOK_off macro.
p4raw-id: //depot/perl@23277
Diffstat (limited to 'sv.h')
| -rw-r--r-- | sv.h | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -567,9 +567,9 @@ Set the length of the string which is in the SV. See C<SvCUR>. #define SvIOK_on(sv) (SvRELEASE_IVX(sv), \ SvFLAGS(sv) |= (SVf_IOK|SVp_IOK)) #define SvIOK_off(sv) (SvFLAGS(sv) &= ~(SVf_IOK|SVp_IOK|SVf_IVisUV)) -#define SvIOK_only(sv) ((void)SvOK_off(sv), \ +#define SvIOK_only(sv) (SvOK_off(sv), \ SvFLAGS(sv) |= (SVf_IOK|SVp_IOK)) -#define SvIOK_only_UV(sv) ((void)SvOK_off_exc_UV(sv), \ +#define SvIOK_only_UV(sv) (SvOK_off_exc_UV(sv), \ SvFLAGS(sv) |= (SVf_IOK|SVp_IOK)) #define SvIOK_UV(sv) ((SvFLAGS(sv) & (SVf_IOK|SVf_IVisUV)) \ @@ -585,7 +585,7 @@ Set the length of the string which is in the SV. See C<SvCUR>. #define SvNOK(sv) (SvFLAGS(sv) & SVf_NOK) #define SvNOK_on(sv) (SvFLAGS(sv) |= (SVf_NOK|SVp_NOK)) #define SvNOK_off(sv) (SvFLAGS(sv) &= ~(SVf_NOK|SVp_NOK)) -#define SvNOK_only(sv) ((void)SvOK_off(sv), \ +#define SvNOK_only(sv) (SvOK_off(sv), \ SvFLAGS(sv) |= (SVf_NOK|SVp_NOK)) /* @@ -626,7 +626,7 @@ and leaves the UTF-8 status as it was. #define SvVOK(sv) (SvMAGICAL(sv) && mg_find(sv,'V')) #define SvOOK(sv) (SvFLAGS(sv) & SVf_OOK) #define SvOOK_on(sv) ((void)SvIOK_off(sv), SvFLAGS(sv) |= SVf_OOK) -#define SvOOK_off(sv) (SvOOK(sv) && sv_backoff(sv)) +#define SvOOK_off(sv) ((void)(SvOOK(sv) && sv_backoff(sv))) #define SvFAKE(sv) (SvFLAGS(sv) & SVf_FAKE) #define SvFAKE_on(sv) (SvFLAGS(sv) |= SVf_FAKE) @@ -1124,7 +1124,7 @@ Like C<sv_catsv> but doesn't process magic. #define CAN_COW_FLAGS (SVp_POK|SVf_POK) #else -# define SvRELEASE_IVX(sv) ((void)SvOOK_off(sv)) +# define SvRELEASE_IVX(sv) SvOOK_off(sv) #endif /* PERL_COPY_ON_WRITE */ #define SV_CHECK_THINKFIRST(sv) if (SvTHINKFIRST(sv)) \ |