diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 1997-11-10 00:57:53 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1997-11-10 00:57:53 +0000 |
commit | d55594aef6b1fb9e305275c3d19a25e4cdfb2cda (patch) | |
tree | f7d6379858b9595f060beee6161b43a373132fe9 /sv.h | |
parent | 5cb186c2cd2ac09e46b98e7cfd9fde70c8a3481c (diff) | |
download | perl-d55594aef6b1fb9e305275c3d19a25e4cdfb2cda.tar.gz |
Initial (untested) merge of all non-ansi changes on ansiperl branch
into win32 branch.
p4raw-id: //depot/win32/perl@221
Diffstat (limited to 'sv.h')
-rw-r--r-- | sv.h | 22 |
1 files changed, 11 insertions, 11 deletions
@@ -494,20 +494,19 @@ struct xpvio { #ifdef CRIPPLED_CC -IV SvIV _((SV* sv)); -UV SvUV _((SV* sv)); -double SvNV _((SV* sv)); #define SvPV_force(sv, lp) sv_pvn_force(sv, &lp) #define SvPV(sv, lp) sv_pvn(sv, &lp) -char *sv_pvn _((SV *, STRLEN *)); -I32 SvTRUE _((SV *)); - -#define SvIVx(sv) SvIV(sv) -#define SvUVx(sv) SvUV(sv) -#define SvNVx(sv) SvNV(sv) +#define SvIVx(sv) sv_iv(sv) +#define SvUVx(sv) sv_uv(sv) +#define SvNVx(sv) sv_nv(sv) #define SvPVx(sv, lp) sv_pvn(sv, &lp) #define SvPVx_force(sv, lp) sv_pvn_force(sv, &lp) -#define SvTRUEx(sv) SvTRUE(sv) +#define SvTRUEx(sv) sv_true(sv) + +#define SvIV(sv) SvIVx(sv) +#define SvNV(sv) SvNVx(sv) +#define SvUV(sv) SvIVx(sv) +#define SvTRUE(sv) SvTRUEx(sv) #else /* !CRIPPLED_CC */ @@ -565,11 +564,12 @@ I32 SvTRUE _((SV *)); #define newRV_inc(sv) newRV(sv) #ifdef __GNUC__ +# undef newRV_noinc # define newRV_noinc(sv) ({SV *nsv=newRV((sv)); --SvREFCNT(SvRV(nsv)); nsv;}) #else # if defined(CRIPPLED_CC) || defined(USE_THREADS) -SV *newRV_noinc _((SV *)); # else +# undef newRV_noinc # define newRV_noinc(sv) ((Sv = newRV(sv)), --SvREFCNT(SvRV(Sv)), Sv) # endif #endif /* __GNUC__ */ |