This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Devel-PPPort: Rmv impediment to compiling under C++11
[perl5.git] / dist / Devel-PPPort / parts / inc / misc
index 181311e..36ee57f 100644 (file)
@@ -322,14 +322,16 @@ __UNDEFINED__ isXDIGIT(c)       isxdigit(c)
 #  undef isPRINT
 # endif
 
-#ifdef HAS_QUAD
-# ifdef U64TYPE
-#  define WIDEST_UTYPE U64TYPE
+#ifndef WIDEST_UTYPE
+# ifdef QUADKIND
+#  ifdef U64TYPE
+#   define WIDEST_UTYPE U64TYPE
+#  else
+#   define WIDEST_UTYPE Quad_t
+#  endif
 # else
-#  define WIDEST_UTYPE Quad_t
+#  define WIDEST_UTYPE U32
 # endif
-#else
-# define WIDEST_UTYPE U32
 #endif
 
 __UNDEFINED__ isALNUMC(c)       (isALPHA(c) || isDIGIT(c))
@@ -624,7 +626,7 @@ SVf(x)
         SV *x
         PPCODE:
 #if { VERSION >= 5.004 }
-                x = sv_2mortal(newSVpvf("[%"SVf"]", SVfARG(x)));
+                x = sv_2mortal(newSVpvf("[%" SVf "]", SVfARG(x)));
 #endif
                 XPUSHs(x);
                 XSRETURN(1);