diff --git a/rtl/beos/dos.pp b/rtl/beos/dos.pp index 7e3b124e33..617f829baa 100644 --- a/rtl/beos/dos.pp +++ b/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 diff --git a/rtl/macos/dos.pp b/rtl/macos/dos.pp index ad1bf7244b..6be8a93883 100644 --- a/rtl/macos/dos.pp +++ b/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. diff --git a/rtl/unix/dos.pp b/rtl/unix/dos.pp index 0250753935..2af469f0e4 100644 --- a/rtl/unix/dos.pp +++ b/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