paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 13:30:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-js: writer: fixed writing invalid UTF-16

Browse Source 
git-svn-id: trunk@47829 -
This commit is contained in:
Mattias Gaertner 2020-12-21 15:48:48 +00:00
parent cbe352808a
commit 049af48bd8
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-js/src/jswriter.pp
View File

@ -611,10 +611,9 @@ begin
begin
inc(I,2); // surrogate, two char codepoint
continue;
end
else
// invalid UTF-16, cannot be encoded as UTF-8 -> encode as hex
R:=R+'\u'+TJSString(HexStr(ord(c),4));
end;
// invalid UTF-16, cannot be encoded as UTF-8 -> encode as hex
R:=R+'\u'+TJSString(HexStr(ord(S[i]),4));
end
else
// invalid UTF-16 at end of string, cannot be encoded as UTF-8 -> encode as hex