uv_to_utf8() could lose 37th bit on HAS_QUAD platforms

p4raw-id: //depot/perl@4698

diff --git a/utf8.c b/utf8.c
index b27774a..7bae55c 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -69,7 +69,7 @@ Perl_uv_to_utf8(pTHX_ U8 *d, UV uv)
        return d;
     }
 #ifdef HAS_QUAD
-    if (uv < 0x2000000000)
+    if (uv < 0x1000000000)
 #endif
     {
        *d++ =                        0xfe;     /* Can't match U+FEFF! */