paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 23:10:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* let GetDirIO() return its result in DefaultFileSystemCodePage, as its only

Browse Source 
used internally and in combination with other strings in that code page

git-svn-id: trunk@28571 -
This commit is contained in:
Jonas Maebe 2014-08-31 21:28:01 +00:00
parent 88d969f3bd
commit 74e56c2674
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/fexpand.inc
View File

@ -79,6 +79,10 @@ begin
OldInOutRes := InOutRes;
InOutRes := 0;
GetDir (DriveNr, Dir);
{$IF defined(FPC_FEXPAND_SYSUTILS) and not defined(SYSUTILSUNICODE)}
{ set the same codepage as used for the strings in fexpand itself }
SetCodePage(Dir,DefaultFileSystemCodePage);
{$ENDIF FPC_FEXPAND_SYSUTILS and not SYSUTILSUNICODE}
InOutRes := OldInOutRes;
end;