diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2014-02-04 00:38:39 -0300 |
|---|---|---|
| committer | Brian Fraser <fraserbn@gmail.com> | 2014-02-05 04:32:47 -0300 |
| commit | dc6d7f5c0d35ddfd7e124c5143d9f0309ca9a149 (patch) | |
| tree | 9f75f68a9742d7a951cdd6a80c45272311e21caf /sv.c | |
| parent | 83d7d07d621fa8abcdb4e3b0a7a6cd7fd002dafa (diff) | |
| download | perl-dc6d7f5c0d35ddfd7e124c5143d9f0309ca9a149.tar.gz | |
Avoid compiler warnings by consistently using #ifdef instead of plain #if
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 16 |
1 files changed, 8 insertions, 8 deletions
@@ -33,11 +33,11 @@ #include "regcomp.h" #ifndef HAS_C99 -# if __STDC_VERSION__ >= 199901L && !defined(VMS) +# if defined(__STDC_VERSION__) && __STDC_VERSION__ >= 199901L && !defined(VMS) # define HAS_C99 1 # endif #endif -#if HAS_C99 +#ifdef HAS_C99 # include <stdint.h> #endif @@ -10923,7 +10923,7 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p case 'V': case 'z': case 't': -#if HAS_C99 +#ifdef HAS_C99 case 'j': #endif intsize = *q++; @@ -11059,7 +11059,7 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p case 'z': iv = va_arg(*args, SSize_t); break; case 't': iv = va_arg(*args, ptrdiff_t); break; default: iv = va_arg(*args, int); break; -#if HAS_C99 +#ifdef HAS_C99 case 'j': iv = va_arg(*args, intmax_t); break; #endif case 'q': @@ -11156,7 +11156,7 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p case 'V': uv = va_arg(*args, UV); break; case 'z': uv = va_arg(*args, Size_t); break; case 't': uv = va_arg(*args, ptrdiff_t); break; /* will sign extend, but there is no uptrdiff_t, so oh well */ -#if HAS_C99 +#ifdef HAS_C99 case 'j': uv = va_arg(*args, uintmax_t); break; #endif default: uv = va_arg(*args, unsigned); break; @@ -11492,7 +11492,7 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p case 'V': *(va_arg(*args, IV*)) = i; break; case 'z': *(va_arg(*args, SSize_t*)) = i; break; case 't': *(va_arg(*args, ptrdiff_t*)) = i; break; -#if HAS_C99 +#ifdef HAS_C99 case 'j': *(va_arg(*args, intmax_t*)) = i; break; #endif case 'q': @@ -13370,7 +13370,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags, PL_origargc = proto_perl->Iorigargc; PL_origargv = proto_perl->Iorigargv; -#if !NO_TAINT_SUPPORT +#ifndef NO_TAINT_SUPPORT /* Set tainting stuff before PerlIO_debug can possibly get called */ PL_tainting = proto_perl->Itainting; PL_taint_warn = proto_perl->Itaint_warn; @@ -13551,7 +13551,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags, PL_timesbuf = proto_perl->Itimesbuf; #endif -#if !NO_TAINT_SUPPORT +#ifndef NO_TAINT_SUPPORT PL_tainted = proto_perl->Itainted; #else PL_tainted = FALSE; |