diff options
author | Karl Williamson <khw@cpan.org> | 2017-12-05 13:39:27 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2017-12-08 22:27:44 -0700 |
commit | eaee9cdd8f60c9e576975b9d4f1a448cb06d1ab7 (patch) | |
tree | aaf2a89949d86893d8436cc9f4e735ef13f8e50f /sv.c | |
parent | f2f9e01d8bc23e50f85dd24010773519ca605d2b (diff) | |
download | perl-eaee9cdd8f60c9e576975b9d4f1a448cb06d1ab7.tar.gz |
Allow %j on non-C99 platforms
Now that intmax_t is emulated, the %j format is usable on platforms that
aren't C99.
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 14 |
1 files changed, 3 insertions, 11 deletions
@@ -12335,9 +12335,7 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p case 'V': case 'z': case 't': -#ifdef I_STDINT case 'j': -#endif intsize = *q++; break; } @@ -12660,9 +12658,7 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p case 't': iv = va_arg(*args, ptrdiff_t); break; #endif default: iv = va_arg(*args, int); break; -#ifdef I_STDINT - case 'j': iv = va_arg(*args, intmax_t); break; -#endif + case 'j': iv = va_arg(*args, PERL_INTMAX_T); break; case 'q': #if IVSIZE >= 8 iv = va_arg(*args, Quad_t); break; @@ -12717,9 +12713,7 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p * uptrdiff_t, so oh well */ case 't': uv = va_arg(*args, ptrdiff_t); break; #endif -#ifdef I_STDINT - case 'j': uv = va_arg(*args, uintmax_t); break; -#endif + case 'j': uv = va_arg(*args, PERL_UINTMAX_T); break; default: uv = va_arg(*args, unsigned); break; case 'q': #if IVSIZE >= 8 @@ -13259,9 +13253,7 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p #ifdef HAS_PTRDIFF_T case 't': *(va_arg(*args, ptrdiff_t*)) = i; break; #endif -#ifdef I_STDINT - case 'j': *(va_arg(*args, intmax_t*)) = i; break; -#endif + case 'j': *(va_arg(*args, PERL_INTMAX_T*)) = i; break; case 'q': #if IVSIZE >= 8 *(va_arg(*args, Quad_t*)) = i; break; |