paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 10:45:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed off by one error in fpwidestring.Unicode2AnsiMove, which caused an

Browse Source 
extra #0 character to the appended to the result, when converting to UTF-8

git-svn-id: trunk@36498 -
This commit is contained in:
nickysn 2017-06-13 23:49:28 +00:00
parent adfd578659
commit ab0b07e7c6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/fpwidestring.pp
View File

@ -254,7 +254,7 @@ begin
if (cp=CP_UTF8) then
begin
destLen:=UnicodeToUtf8(nil,High(SizeUInt),source,len);
SetLength(dest,destLen);
SetLength(dest,destLen-1);
UnicodeToUtf8(@dest[1],destLen,source,len);
SetCodePage(dest,cp,False);
exit;