From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 20 Dec 1999 07:55:07 +0000 (+0000)
Subject: uv_to_utf8() could lose 37th bit on HAS_QUAD platforms
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=be99777f11f45794695cc66d8f318d65df2f1d77;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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! */