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

* fixes unix conversion of slashes

Browse Source
This commit is contained in:
carl 2002-03-03 15:19:36 +00:00
parent 82df04cacf
commit 891194dd54
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/fexpand.inc
View File

@ -90,6 +90,11 @@ begin
for I := 1 to Length (Pa) do for I := 1 to Length (Pa) do
if Pa [I] = '/' then if Pa [I] = '/' then
Pa [I] := DirSep; Pa [I] := DirSep;
{$ELSE}
{Allow backslash as slash}
for I := 1 to Length (Pa) do
if Pa [I] = '\' then
Pa [I] := DirSep;
{$ENDIF UNIX} {$ENDIF UNIX}
{$IFDEF FPC_FEXPAND_VOLUMES} {$IFDEF FPC_FEXPAND_VOLUMES}
PathStart := Succ (Pos (DriveSep, Pa)); PathStart := Succ (Pos (DriveSep, Pa));
@ -297,7 +302,10 @@ end;
{ {
$Log$ $Log$
Revision 1.8 2001-04-09 19:28:40 hajny Revision 1.9 2002-03-03 15:19:36 carl
* fixes unix conversion of slashes
Revision 1.8 2001/04/09 19:28:40 hajny
* yet another fix for FExpand under Unix * yet another fix for FExpand under Unix
Revision 1.5 2001/03/21 21:08:20 hajny Revision 1.5 2001/03/21 21:08:20 hajny