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

* small optimisation for ToSingleByteFileSystemEncodedFileName(rawbytestring):

Browse Source 
don't call SetCodePage() if the input already has the correct code page
    (SetCodePage would always make the string unique, which is not necessary)

git-svn-id: branches/cpstrrtl@24962 -
This commit is contained in:
Jonas Maebe 2013-06-24 09:40:06 +00:00
parent 980975ff85
commit e65d01a717
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/inc/ustrings.inc
View File

@ -2296,5 +2296,6 @@ End;
Function ToSingleByteFileSystemEncodedFileName(const Str: RawByteString): RawByteString; Function ToSingleByteFileSystemEncodedFileName(const Str: RawByteString): RawByteString;
Begin Begin
Result:=Str; Result:=Str;
if StringCodePage(Result)<>DefaultFileSystemCodePage then
SetCodePage(Result,DefaultFileSystemCodePage,True); SetCodePage(Result,DefaultFileSystemCodePage,True);
End; End;