paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-06 15:50:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* hack to make macos compile

Browse Source
This commit is contained in:
olle 2004-12-28 21:50:14 +00:00
parent f290fbb299
commit 24f3532c2a
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/dos.inc
View File

@ -255,7 +255,11 @@ begin
{ Find the first DirectorySeparator or DriveSeparator from the end. }
DirEnd := Length (Path);
while (DirEnd > 0) and not (Path [DirEnd] in
{$IFNDEF MACOS}
[DirectorySeparator, DriveSeparator]) do
{$ELSE}
[DirectorySeparator]) do
{$ENDIF}
Dec (DirEnd);
{ The first "extension" should be returned if LFN }
@ -298,7 +302,10 @@ end;
{
$Log$
Revision 1.3 2004-12-15 17:03:01 peter
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
* fixed overflow
Revision 1.2 2004/12/05 16:44:43 hajny