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

* more generic fix for DriveSeparator = DirectorySeparator

Browse Source
This commit is contained in:
Tomas Hajny 2004-12-29 19:10:47 +00:00
parent cca310e33d
commit 64a9b00709
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/inc/dos.inc
View File

@ -254,12 +254,13 @@ begin
{ Find the first DirectorySeparator or DriveSeparator from the end. } { Find the first DirectorySeparator or DriveSeparator from the end. }
DirEnd := Length (Path); DirEnd := Length (Path);
while (DirEnd > 0) and not (Path [DirEnd] in { Avoid problems with platforms having DriveSeparator = DirectorySeparator. }
{$IFNDEF MACOS} if DirectorySeparator = DriveSeparator then
while (DirEnd > 0) and not (Path [DirEnd] in [DirectorySeparator]) do
Dec (DirEnd)
else
while (DirEnd > 0) and not (Path [DirEnd] in
[DirectorySeparator, DriveSeparator]) do [DirectorySeparator, DriveSeparator]) do
{$ELSE}
[DirectorySeparator]) do
{$ENDIF}
Dec (DirEnd); Dec (DirEnd);
{ The first "extension" should be returned if LFN } { The first "extension" should be returned if LFN }
@ -302,7 +303,10 @@ end;
{ {
$Log$ $Log$
Revision 1.4 2004-12-28 21:50:14 olle Revision 1.5 2004-12-29 19:10:47 hajny
* more generic fix for DriveSeparator = DirectorySeparator
Revision 1.4 2004/12/28 21:50:14 olle
* hack to make macos compile * hack to make macos compile
Revision 1.3 2004/12/15 17:03:01 peter Revision 1.3 2004/12/15 17:03:01 peter