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

rtl: fix fpc_AnsiStr_To_AnsiStr source codepage check (less conversions should be done now from AnsiString type to the same codepage strings)

Browse Source 
git-svn-id: trunk@19544 -
This commit is contained in:
paul 2011-10-25 07:57:31 +00:00
parent e08c68f308
commit ef0c4a1e5c
1 changed files with 2 additions and 0 deletions

2
rtl/inc/astrings.inc
View File

@ -411,6 +411,8 @@ begin
if (cp=CP_ACP) then
cp:=DefaultSystemCodePage;
orgcp:=StringCodePage(S);
if (orgcp=CP_ACP) then
orgcp:=DefaultSystemCodePage;
if (orgcp=cp) or (orgcp=CP_NONE) then
begin
SetLength(result,Size);