* compilation fix for dosh.inc changes

rtl/beos/dos.pp

@@ -20,6 +20,8 @@ Interface
 
 {$goto on}
 
+{$i dosh.inc}
+
 Type
   SearchRec = packed Record
   {Fill : array[1..21] of byte;  Fill replaced with below}
@@ -36,8 +38,6 @@ Type
     SearchDir  : String[FileNameLen]; { path we are searching in }
   End;
 
-{$i dosh.inc}
-
 Procedure AddDisk(const path:string);
 
 Implementation
@@ -817,7 +817,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.10  2004-12-05 16:44:43  hajny
+  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
     * GetMsCount added, platform independent routines moved to single include file
 
   Revision 1.9  2004/02/17 17:37:26  daniel

rtl/macos/dos.pp

@@ -19,6 +19,8 @@ Uses
   macostp;
   
 
+{$i dosh.inc}
+
 Type
     SearchRec = packed record
         Attr: Byte;       {attribute of found file}
@@ -36,8 +38,6 @@ Type
         exactMatch: Boolean;
       end;
 
-{$i dosh.inc}
-
 Implementation
 
 {TODO Obtain disk size and disk free values for volumes > 2 GB.

rtl/unix/dos.pp

@@ -15,6 +15,8 @@
 Unit Dos;
 Interface
 
+{$i dosh.inc}
+
 Type
 
   SearchRec =
@@ -39,8 +41,6 @@ Type
     NamePos    : Word;        {end of path, start of name position}
   End;
 
-{$i dosh.inc}
-
 {Extra Utils}
 function weekday(y,m,d : longint) : longint;
 Procedure UnixDateToDt(SecsPast: LongInt; Var Dt: DateTime);
@@ -889,7 +889,10 @@ End.
 
 {
   $Log$
-  Revision 1.40  2004-12-05 16:44:43  hajny
+  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
     * GetMsCount added, platform independent routines moved to single include file
 
   Revision 1.39  2004/12/02 18:24:35  marco