summaryrefslogtreecommitdiff
path: root/utf8.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-12-20 07:55:07 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-12-20 07:55:07 +0000
commitbe99777f11f45794695cc66d8f318d65df2f1d77 (patch)
tree235e52a540d45ba8f2014481bebe1b082f05f15d /utf8.c
parent0505442f3c585b66999f71b9bb23ab4d01c6531a (diff)
downloadperl-be99777f11f45794695cc66d8f318d65df2f1d77.tar.gz
uv_to_utf8() could lose 37th bit on HAS_QUAD platforms
p4raw-id: //depot/perl@4698
Diffstat (limited to 'utf8.c')
-rw-r--r--utf8.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/utf8.c b/utf8.c
index b27774af7f..7bae55cb84 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! */