paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 02:27:56 +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 21:04:56 +00:00
parent ca4d769412
commit 433df6f69f
3 changed files with 23 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/beos/dos.pp
View File

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

6
rtl/macos/dos.pp
View File

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

12
rtl/unix/dos.pp
View File

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