paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-06 02:27:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
mattias 2020-12-21 15:49:12 +00:00
parent 7633a39273
commit e34698f1d5
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/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