* compilation fix for dosh.inc changes

rtl/beos/dos.pp

@@ -20,7 +20,8 @@ Interface
 
 {$goto on}
 
-{$i dosh.inc}
+Const 
+  FileNameLen = 255;
 
 Type
   SearchRec = packed Record
@@ -38,6 +39,9 @@ Type
     SearchDir  : String[FileNameLen]; { path we are searching in }
   End;
 
+{$DEFINE HAS_FILENAMELEN}
+{$I dosh.inc}
+
 Procedure AddDisk(const path:string);
 
 Implementation
@@ -817,7 +821,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.11  2004-12-05 20:35:03  hajny
+  Revision 1.12  2004-12-05 21:04:56  hajny
+    * compilation fix for dosh.inc changes
+
+  Revision 1.11  2004/12/05 20:35:03  hajny
     * compilation fix for dosh.inc changes
 
   Revision 1.10  2004/12/05 16:44:43  hajny

rtl/macos/dos.pp

@@ -19,7 +19,8 @@ Uses
   macostp;
   
 
-{$i dosh.inc}
+Const 
+  FileNameLen = 255;
 
 Type
     SearchRec = packed record
@@ -38,6 +39,9 @@ Type
         exactMatch: Boolean;
       end;
 
+{$DEFINE HAS_FILENAMELEN}
+{$I dosh.inc}
+
 Implementation
 
 {TODO Obtain disk size and disk free values for volumes > 2 GB.

rtl/unix/dos.pp

@@ -15,10 +15,10 @@
 Unit Dos;
 Interface
 
-{$i dosh.inc}
+Const 
+  FileNameLen = 255;
 
 Type
-
   SearchRec =
 {$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
     packed
@@ -41,6 +41,9 @@ Type
     NamePos    : Word;        {end of path, start of name position}
   End;
 
+{$DEFINE HAS_FILENAMELEN}
+{$i dosh.inc}
+
 {Extra Utils}
 function weekday(y,m,d : longint) : longint;
 Procedure UnixDateToDt(SecsPast: LongInt; Var Dt: DateTime);
@@ -889,7 +892,10 @@ End.
 
 {
   $Log$
-  Revision 1.41  2004-12-05 20:33:32  hajny
+  Revision 1.42  2004-12-05 21:04:56  hajny
+    * compilation fix for dosh.inc changes
+
+  Revision 1.41  2004/12/05 20:33:32  hajny
     * compilation fix for dosh.inc changes
 
   Revision 1.40  2004/12/05 16:44:43  hajny