paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 19:49:46 +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

16
rtl/inc/dos.inc
View File

@ -254,12 +254,13 @@ begin
{ Find the first DirectorySeparator or DriveSeparator from the end. }
DirEnd := Length (Path);
while (DirEnd > 0) and not (Path [DirEnd] in
{$IFNDEF MACOS}
{ Avoid problems with platforms having DriveSeparator = DirectorySeparator. }
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
{$ELSE}
[DirectorySeparator]) do
{$ENDIF}
Dec (DirEnd);
{ The first "extension" should be returned if LFN }
@ -302,7 +303,10 @@ end;
{
$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
Revision 1.3 2004/12/15 17:03:01 peter