This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix a printf thinko: now quads must have the ll L q prefix.
[perl5.git] / sv.c
diff --git a/sv.c b/sv.c
index 355ab9a..1f0d1a7 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -4906,7 +4906,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
 
        case 'D':
 #ifdef IV_IS_QUAD
-           /* nothing */
+           intsize = 'q';
 #else
            intsize = 'l';
 #endif
@@ -4916,11 +4916,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
            if (args) {
                switch (intsize) {
                case 'h':       iv = (short)va_arg(*args, int); break;
-#ifdef IV_IS_QUAD
-               default:        iv = va_arg(*args, IV); break;
-#else
                default:        iv = va_arg(*args, int); break;
-#endif
                case 'l':       iv = va_arg(*args, long); break;
                case 'V':       iv = va_arg(*args, IV); break;
 #ifdef HAS_QUAD
@@ -4932,11 +4928,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
                iv = (svix < svmax) ? SvIVx(svargs[svix++]) : 0;
                switch (intsize) {
                case 'h':       iv = (short)iv; break;
-#ifdef IV_IS_QUAD
-               default:        break;
-#else
                default:        iv = (int)iv; break;
-#endif
                case 'l':       iv = (long)iv; break;
                case 'V':       break;
 #ifdef HAS_QUAD
@@ -4958,7 +4950,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
 
        case 'U':
 #ifdef IV_IS_QUAD
-           /* nothing */
+           intsize = 'q';
 #else
            intsize = 'l';
 #endif
@@ -4973,7 +4965,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
 
        case 'O':
 #ifdef IV_IS_QUAD
-           /* nothing */
+           intsize = 'q';
 #else
            intsize = 'l';
 #endif
@@ -4990,11 +4982,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
            if (args) {
                switch (intsize) {
                case 'h':  uv = (unsigned short)va_arg(*args, unsigned); break;
-#ifdef UV_IS_QUAD
-               default:   uv = va_arg(*args, UV); break;
-#else
                default:   uv = va_arg(*args, unsigned); break;
-#endif
                case 'l':  uv = va_arg(*args, unsigned long); break;
                case 'V':  uv = va_arg(*args, UV); break;
 #ifdef HAS_QUAD
@@ -5006,11 +4994,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
                uv = (svix < svmax) ? SvUVx(svargs[svix++]) : 0;
                switch (intsize) {
                case 'h':       uv = (unsigned short)uv; break;
-#ifdef UV_IS_QUAD
-               default:        break;
-#else
                default:        uv = (unsigned)uv; break;
-#endif
                case 'l':       uv = (unsigned long)uv; break;
                case 'V':       break;
 #ifdef HAS_QUAD
@@ -5160,11 +5144,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
            if (args) {
                switch (intsize) {
                case 'h':       *(va_arg(*args, short*)) = i; break;
-#ifdef IV_IS_QUAD
-               default:        *(va_arg(*args, IV*)) = i; break;
-#else
                default:        *(va_arg(*args, int*)) = i; break;
-#endif
                case 'l':       *(va_arg(*args, long*)) = i; break;
                case 'V':       *(va_arg(*args, IV*)) = i; break;
 #ifdef HAS_QUAD