Explorar o código

* hack to make macos compile

olle %!s(int64=21) %!d(string=hai) anos
pai
achega
24f3532c2a
Modificáronse 1 ficheiros con 8 adicións e 1 borrados
  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. }
 { Find the first DirectorySeparator or DriveSeparator from the end. }
   DirEnd := Length (Path);
   DirEnd := Length (Path);
   while (DirEnd > 0) and not (Path [DirEnd] in
   while (DirEnd > 0) and not (Path [DirEnd] in
+{$IFNDEF MACOS}
                                        [DirectorySeparator, DriveSeparator]) do
                                        [DirectorySeparator, DriveSeparator]) do
+{$ELSE}
+                                       [DirectorySeparator]) do
+{$ENDIF}
     Dec (DirEnd);
     Dec (DirEnd);
 
 
 { The first "extension" should be returned if LFN }
 { The first "extension" should be returned if LFN }
@@ -298,7 +302,10 @@ end;
 
 
 {
 {
   $Log$
   $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
     * fixed overflow
 
 
   Revision 1.2  2004/12/05 16:44:43  hajny
   Revision 1.2  2004/12/05 16:44:43  hajny