diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-09-18 04:19:25 +0300 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-09-26 09:15:55 +0000 |
| commit | 93189314521460c01625b05f7cfa81ac855affa9 (patch) | |
| tree | 0daf409e1e27efb5bda55df447292e5f02193f4a /sv.h | |
| parent | a29f6d035abe7b06489dad2706479b252a072f02 (diff) | |
| download | perl-93189314521460c01625b05f7cfa81ac855affa9.tar.gz | |
enable -ansi -pedantic
Message-ID: <20020917221925.GF85044@lyta.hut.fi>
p4raw-id: //depot/perl@17925
Diffstat (limited to 'sv.h')
| -rw-r--r-- | sv.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -152,7 +152,7 @@ perform the upgrade if necessary. See C<svtype>. # define ATOMIC_DEC_AND_TEST(res, count) (res = (--count == 0)) #endif /* USE_5005THREADS */ -#ifdef __GNUC__ +#if defined(__GNUC__) && !defined(__STRICT_ANSI__) && !defined(PERL_GCC_PEDANTIC) # define SvREFCNT_inc(sv) \ ({ \ SV *nsv = (SV*)(sv); \ @@ -1000,7 +1000,7 @@ otherwise. #define SvPVutf8x_force(sv, lp) sv_pvutf8n_force(sv, &lp) #define SvPVbytex_force(sv, lp) sv_pvbyten_force(sv, &lp) -#ifdef __GNUC__ +#if defined(__GNUC__) && !defined(__STRICT_ANSI__) && !defined(PERL_GCC_PEDANTIC) # define SvIVx(sv) ({SV *nsv = (SV*)(sv); SvIV(nsv); }) # define SvUVx(sv) ({SV *nsv = (SV*)(sv); SvUV(nsv); }) |