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

* don't adjust directory separators in fexpand when we're compiling the

Browse Source 
sysutils version, it's already done (in a more efficient way) in
    ExpandFileName() before that routine is called

git-svn-id: branches/cpstrrtl@25301 -
This commit is contained in:
Jonas Maebe 2013-08-19 22:04:19 +00:00
parent 26b7f5a36c
commit df97cd65d9
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/inc/fexpand.inc
View File

@ -152,6 +152,8 @@ begin
Pa := UpCase (Path); Pa := UpCase (Path);
{$ENDIF FPC_FEXPAND_SYSUTILS and not SYSUTILSUNICODE} {$ENDIF FPC_FEXPAND_SYSUTILS and not SYSUTILSUNICODE}
{ already done before this routine is called from sysutils }
{$IFNDEF FPC_FEXPAND_SYSUTILS}
(* Allow both '/' and '\' as directory separators *) (* Allow both '/' and '\' as directory separators *)
(* by converting all to the native one. *) (* by converting all to the native one. *)
{$warnings off} {$warnings off}
@ -159,6 +161,7 @@ begin
if CharInSet(Pa [I], AllowDirectorySeparators) then if CharInSet(Pa [I], AllowDirectorySeparators) then
Pa [I] := DirectorySeparator; Pa [I] := DirectorySeparator;
{$warnings on} {$warnings on}
{$ENDIF not FPC_FEXPAND_SYSUTILS}
(* PathStart is amount of characters to strip to get beginning *) (* PathStart is amount of characters to strip to get beginning *)
(* of path without volume/drive specification. *) (* of path without volume/drive specification. *)