Przeglądaj źródła

* hack to make macos compile

olle 20 lat temu
rodzic
commit
24f3532c2a
1 zmienionych plików z 8 dodań i 1 usunięć
  1. 8 1
      rtl/inc/dos.inc

+ 8 - 1
rtl/inc/dos.inc

@@ -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