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

AmigaOS4: fix compilation for double UTF8Encode in library unit and system

Browse Source
This commit is contained in:
Marcus Sackrow 2022-02-12 14:52:45 +01:00
parent 10c60c45d5
commit 41e32d0fba
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/rtl-console/src/inc/video.inc
View File

@ -312,7 +312,7 @@ function ExtendedGraphemeCluster2LegacyChar(const EGC: UnicodeString; CodePage:
var
tmpS: RawByteString;
begin
tmpS:=UTF8Encode(EGC);
tmpS:=System.UTF8Encode(EGC);
System.SetCodePage(tmpS,CodePage,True);
if Length(tmpS)=1 then
Result:=tmpS[1]