paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 20:11:02 +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} {$goto on}
{$i dosh.inc} Const
FileNameLen = 255;
Type Type
SearchRec = packed Record SearchRec = packed Record
@ -38,6 +39,9 @@ Type
SearchDir : String[FileNameLen]; { path we are searching in } SearchDir : String[FileNameLen]; { path we are searching in }
End; End;
{$DEFINE HAS_FILENAMELEN}
{$I dosh.inc}
Procedure AddDisk(const path:string); Procedure AddDisk(const path:string);
Implementation Implementation
@ -817,7 +821,10 @@ finalization
end. end.
{ {
$Log$ $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 * compilation fix for dosh.inc changes
Revision 1.10 2004/12/05 16:44:43 hajny Revision 1.10 2004/12/05 16:44:43 hajny

6
rtl/macos/dos.pp
View File

@ -19,7 +19,8 @@ Uses
macostp; macostp;
{$i dosh.inc} Const
FileNameLen = 255;
Type Type
SearchRec = packed record SearchRec = packed record
@ -38,6 +39,9 @@ Type
exactMatch: Boolean; exactMatch: Boolean;
end; end;
{$DEFINE HAS_FILENAMELEN}
{$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.

12
rtl/unix/dos.pp
View File

@ -15,10 +15,10 @@
Unit Dos; Unit Dos;
Interface Interface
{$i dosh.inc} Const
FileNameLen = 255;
Type Type
SearchRec = SearchRec =
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT} {$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed packed
@ -41,6 +41,9 @@ Type
NamePos : Word; {end of path, start of name position} NamePos : Word; {end of path, start of name position}
End; End;
{$DEFINE HAS_FILENAMELEN}
{$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 +892,10 @@ End.
{ {
$Log$ $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 * compilation fix for dosh.inc changes
Revision 1.40 2004/12/05 16:44:43 hajny Revision 1.40 2004/12/05 16:44:43 hajny