suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

utf-16 bug fixed

Browse Source 
svn: r985
This commit is contained in:
Matthew Flatt 2005-10-05 20:00:47 +00:00
parent 50a666ebd9
commit f39c5010ef
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mzscheme/src/string.c
View File

@ -4227,8 +4227,8 @@ unsigned short *scheme_ucs4_to_utf16(const mzchar *text, int start, int end,
for (i = start, j = 0; i < end; i++) { for (i = start, j = 0; i < end; i++) {
v = text[i]; v = text[i];
if (v > 0xFFFF) { if (v > 0xFFFF) {
utf16[j++] = 0xD8000 | ((v >> 10) & 0x3FF); utf16[j++] = 0xD800 | ((v >> 10) & 0x3FF);
utf16[j++] = 0xDC000 | (v & 0x3FF); utf16[j++] = 0xDC00 | (v & 0x3FF);
} else } else
utf16[j++] = v; utf16[j++] = v;
} }