paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-25 23:51:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

Added TranslatePlaceholderCP in fpc_Read_Text_AnsiStr procedure.

Browse Source 
This is a small optimization.
This commit is contained in:
Sergey Larin 2022-01-26 15:11:08 +03:00 committed by Jonas Maebe
parent a8b0e0ed65
commit ee2d313aa0
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/inc/text.inc
View File

@ -1819,6 +1819,7 @@ Begin
SetLength(s,Slen); SetLength(s,Slen);
{$ifdef FPC_HAS_CPSTRING} {$ifdef FPC_HAS_CPSTRING}
SetCodePage(s,TextRec(f).CodePage,false); SetCodePage(s,TextRec(f).CodePage,false);
cp:=TranslatePlaceholderCP(cp);
if cp<>TextRec(f).CodePage then if cp<>TextRec(f).CodePage then
s:=fpc_AnsiStr_To_AnsiStr(s,cp); s:=fpc_AnsiStr_To_AnsiStr(s,cp);
{$endif FPC_HAS_CPSTRING} {$endif FPC_HAS_CPSTRING}