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

rtl: set string codepage for all cases in fpc_AnsiStr_Concat

Browse Source 
git-svn-id: trunk@19509 -
This commit is contained in:
paul 2011-10-19 01:06:04 +00:00
parent 94e03df0e1
commit 212b14a46b
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/inc/astrings.inc
View File

@ -258,10 +258,10 @@ begin
begin begin
DestS:=''; DestS:='';
SetLength(DestS,Size+Location); SetLength(DestS,Size+Location);
SetCodePage(DestS,DestCP,false);
Move(Pointer(S1)^,Pointer(DestS)^,Location); Move(Pointer(S1)^,Pointer(DestS)^,Location);
Move(Pointer(S2)^,(Pointer(DestS)+Location)^,Size+1); Move(Pointer(S2)^,(Pointer(DestS)+Location)^,Size+1);
end; end;
SetCodePage(DestS,DestCP,false);
end; end;