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

merge r14130 from cpstrnew branch by paul:

Browse Source 
pass unicodestring to rawbytestring arguments with converting to default system code page

git-svn-id: trunk@19091 -
This commit is contained in:
paul 2011-09-17 11:34:42 +00:00
parent 067b863b1b
commit 848ca6b0c0
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/ustrings.inc
View File

@ -320,7 +320,11 @@ begin
result:='';
Size:=Length(S2);
if Size>0 then
begin
if cp=$ffff then
cp:=DefaultSystemCodePage;
widestringmanager.Unicode2AnsiMoveProc(PUnicodeChar(Pointer(S2)),result,cp,Size);
end;
end;