* compilation on atari fixed

git-svn-id: trunk@44019 -
(cherry picked from commit f2618cb6a4565f0a0817b2458777181aec3a5579)

rtl/atari/sysutils.pp

@@ -82,8 +82,7 @@ var
 begin
   { Fdatime doesn't report errors... }
   gemdos_fdatime(@td,handle,0);
-  LongRec(result).hi:=td.date;
-  LongRec(result).lo:=td.time;
+  result:=(td.date shl 16) or td.time;
 end;
 
 
@@ -91,8 +90,8 @@ function FileSetDate(Handle: THandle; Age: Int64) : LongInt;
 var
   td: TDOSTIME;
 begin
-  td.date:=LongRec(Age).hi;
-  td.time:=LongRec(Age).lo;
+  td.date:=(Age shr 16) and $ffff;
+  td.time:=Age and $ffff;
   gemdos_fdatime(@td,handle,1);
   { Fdatime doesn't report errors... }
   result:=0;
@@ -268,8 +267,7 @@ begin
       Name:=d_fname;
       SetCodePage(Name,DefaultFileSystemCodePage,false);
 
-      LongRec(Rslt.Time).hi:=d_date;
-      LongRec(Rslt.Time).lo:=d_time;
+      Rslt.Time:=(d_date shl 16) or d_time;
       Rslt.Size:=d_length;
 
       { "128" is Windows "NORMALFILE" attribute. Some buggy code depend on this... :( (KB) }
@@ -299,8 +297,7 @@ begin
       Name:=d_fname;
       SetCodePage(Name,DefaultFileSystemCodePage,false);
 
-      LongRec(Rslt.Time).hi:=d_date;
-      LongRec(Rslt.Time).lo:=d_time;
+      Rslt.Time:=(d_date shl 16) or d_time;
       Rslt.Size:=d_length;
 
       { "128" is Windows "NORMALFILE" attribute. Some buggy code depend on this... :( (KB) }