paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 13:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

- reverted optimisation from r24962, it's already performed in SetCodePage()

Browse Source 
git-svn-id: branches/cpstrrtl@25132 -
This commit is contained in:
Jonas Maebe 2013-07-19 16:28:27 +00:00
parent 155aafc255
commit e132a77709
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/inc/ustrings.inc
View File

@ -2295,6 +2295,5 @@ 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;