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

* yet another attempt to make Mac OS accept dos.inc without hacks ;-)

Browse Source
This commit is contained in:
Tomas Hajny 2005-01-23 09:50:59 +00:00
parent 8f120ca99b
commit d5d331bced
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/inc/dos.inc
View File

@ -255,18 +255,14 @@ 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
while (DirEnd > 0) and (Path [DirEnd] <> DirectorySeparator) do
Dec (DirEnd)
else
while (DirEnd > 0) and not (Path [DirEnd] in
[DirectorySeparator, DriveSeparator]) do
while (DirEnd > 0) and
(Path [DirEnd] <> DirectorySeparator) and
(Path [DirEnd] <> 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. }
@ -308,7 +304,10 @@ end;
{
$Log$
Revision 1.6 2005-01-01 20:31:02 olle
Revision 1.7 2005-01-23 09:50:59 hajny
* yet another attempt to make Mac OS accept dos.inc without hacks ;-)
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