paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 22:19:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

amicommon: cleaned up the voodoo padding magic and packed record from the DOS unit SearchRec. This structure is entirely platform specific, ancient code might have accessed it from assembly, but it's no longer the case.

Browse Source 
git-svn-id: trunk@44345 -
This commit is contained in:
Károly Balogh 2020-03-23 01:15:41 +00:00
parent 65330f346d
commit a48d40e08e
1 changed files with 13 additions and 13 deletions

26
rtl/amicommon/dos.pp
View File

@ -34,18 +34,16 @@ unit Dos;
interface
type
SearchRec = Packed Record
{ watch out this is correctly aligned for all processors }
{ don't modify. }
{ Replacement for Fill }
{0} AnchorPtr : Pointer; { Pointer to the Anchorpath structure }
{4} AttrArg: Word; { The initial Attributes argument }
{6} Fill: Array[1..13] of Byte; {future use}
{End of replacement for fill}
Attr : BYTE; {attribute of found file}
Time : LongInt; {last modify date of found file}
Size : LongInt; {file size of found file}
Name : String[255]; {name of found file}
SearchRec = record
{ platform specific }
AnchorPtr : Pointer; { Pointer to the AnchorPath structure }
AttrArg: Word; { The initial Attributes argument }
{ generic }
Attr : BYTE; { attribute of found file }
Time : LongInt; { last modify date of found file }
Size : LongInt; { file size of found file }
Name : String; { name of found file }
End;
{$I dosh.inc}
@ -69,7 +67,7 @@ implementation
{$I dos.inc}
{ * include MorphOS specific functions & definitions * }
{ * include OS specific functions & definitions * }
{$include execd.inc}
{$include execf.inc}
@ -78,6 +76,8 @@ implementation
{$include doslibf.inc}
{$include utilf.inc}
{$packrecords default}
const
DaysPerMonth : Array[1..12] of ShortInt =
(031,028,031,030,031,030,031,031,030,031,030,031);