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.

git-svn-id: trunk@44345 -

rtl/amicommon/dos.pp

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