paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 14:27:59 +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}
{$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

4
rtl/macos/dos.pp
View File

@ -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.

9
rtl/unix/dos.pp
View File

@ -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