Quick integration of mainline changes to date

[perl5.git] / utf8.c

diff --git a/utf8.c b/utf8.c
index a470376..0153fd6 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -68,8 +68,8 @@ Perl_uv_to_utf8(pTHX_ U8 *d, UV uv)
        *d++ = (( uv        & 0x3f) | 0x80);
        return d;
     }
-#ifdef Quad_t
-    if (uv < 0x2000000000)
+#ifdef HAS_QUAD
+    if (uv < 0x1000000000LL)
 #endif
     {
        *d++ =                        0xfe;     /* Can't match U+FEFF! */
@@ -81,7 +81,7 @@ Perl_uv_to_utf8(pTHX_ U8 *d, UV uv)
        *d++ = (( uv        & 0x3f) | 0x80);
        return d;
     }
-#ifdef Quad_t
+#ifdef HAS_QUAD
     {
        *d++ =                        0xff;     /* Can't match U+FFFE! */
        *d++ = (((uv >> 36) & 0x3f) | 0x80);