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

+ hack again to make macos compile

Browse Source
This commit is contained in:
olle 2005-01-01 20:31:02 +00:00
parent 9887fb710e
commit 0ee1ff7484
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/dos.inc
View File

@ -255,6 +255,7 @@ begin
{ Find the first DirectorySeparator or DriveSeparator from the end. }
DirEnd := Length (Path);
{ 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)
@ -262,6 +263,10 @@ begin
while (DirEnd > 0) and not (Path [DirEnd] in
[DirectorySeparator, DriveSeparator]) do
Dec (DirEnd);
{$ELSE}
while (DirEnd > 0) and not (Path [DirEnd] in [DirectorySeparator]) do
Dec (DirEnd);
{$ENDIF}
{ The first "extension" should be returned if LFN }
{ support not available, the last one otherwise. }
@ -303,7 +308,10 @@ end;
{
$Log$
Revision 1.5 2004-12-29 19:10:47 hajny
Revision 1.6 2005-01-01 20:31:02 olle
+ hack again to make macos compile
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