paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 02:29:19 +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 var
tmpS: RawByteString; tmpS: RawByteString;
begin begin
tmpS:=UTF8Encode(EGC); tmpS:=System.UTF8Encode(EGC);
System.SetCodePage(tmpS,CodePage,True); System.SetCodePage(tmpS,CodePage,True);
if Length(tmpS)=1 then if Length(tmpS)=1 then
Result:=tmpS[1] Result:=tmpS[1]