paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-25 00:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* compilation fix for dosh.inc changes

Browse Source
This commit is contained in:
Tomas Hajny 2004-12-05 20:33:32 +00:00
parent db6015805a
commit ca4d769412
3 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/beos/dos.pp
View File

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

4
rtl/macos/dos.pp
View File

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

9
rtl/unix/dos.pp
View File

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