* fix of FileSetDate after int64 changes (r44010 and r44013)

git-svn-id: trunk@44018 -

rtl/emx/sysutils.pp

@@ -871,10 +871,10 @@ begin
                 FileSetDate := -1
             else
                 begin
-                    FStat^.DateLastAccess := Hi (Age);
-                    FStat^.DateLastWrite := Hi (Age);
-                    FStat^.TimeLastAccess := Lo (Age);
-                    FStat^.TimeLastWrite := Lo (Age);
+                    FStat^.DateLastAccess := Hi (dword (Age));
+                    FStat^.DateLastWrite := Hi (dword (Age));
+                    FStat^.TimeLastAccess := Lo (dword (Age));
+                    FStat^.TimeLastWrite := Lo (dword (Age));
                     RC := DosSetFileInfo (Handle, ilStandard, FStat,
                                                               SizeOf (FStat^));
                     if RC <> 0 then

rtl/go32v2/sysutils.pp

@@ -445,8 +445,8 @@ var
 begin
   Regs.Ebx := Handle;
   Regs.Eax := $5701;
-  Regs.Ecx := Lo(Age);
-  Regs.Edx := Hi(Age);
+  Regs.Ecx := Lo(dword(Age));
+  Regs.Edx := Hi(dword(Age));
   RealIntr($21, Regs);
   if Regs.Flags and CarryFlag <> 0 then
    result := -Regs.Ax

rtl/msdos/sysutils.pp

@@ -444,8 +444,8 @@ var
 begin
   Regs.bx := Handle;
   Regs.ax := $5701;
-  Regs.cx := Lo(Age);
-  Regs.dx := Hi(Age);
+  Regs.cx := Lo(dword(Age));
+  Regs.dx := Hi(dword(Age));
   MsDos(Regs);
   if Regs.Flags and fCarry <> 0 then
    result := -Regs.Ax

rtl/os2/sysutils.pp

@@ -365,9 +365,9 @@ begin
   RC := DosQueryFileInfo(Handle, ilStandard, @FStat, SizeOf(FStat));
   if RC = 0 then
   begin
-    Time := FStat.TimeLastWrite + longint (FStat.DateLastWrite) shl 16;
+    Time := FStat.TimeLastWrite + dword (FStat.DateLastWrite) shl 16;
     if Time = 0 then
-      Time := FStat.TimeCreation + longint (FStat.DateCreation) shl 16;
+      Time := FStat.TimeCreation + dword (FStat.DateCreation) shl 16;
   end else
    begin
     Time:=0;
@@ -390,10 +390,10 @@ begin
    end
   else
    begin
-    FStat^.DateLastAccess := Hi (Age);
-    FStat^.DateLastWrite := Hi (Age);
-    FStat^.TimeLastAccess := Lo (Age);
-    FStat^.TimeLastWrite := Lo (Age);
+    FStat^.DateLastAccess := Hi (dword (Age));
+    FStat^.DateLastWrite := Hi (dword (Age));
+    FStat^.TimeLastAccess := Lo (dword (Age));
+    FStat^.TimeLastWrite := Lo (dword (Age));
     RC := DosSetFileInfo (Handle, ilStandard, FStat, SizeOf (FStat^));
     if RC <> 0 then
      begin

rtl/watcom/sysutils.pp

@@ -430,8 +430,8 @@ var
 begin
   Regs.Ebx := Handle;
   Regs.Eax := $5701;
-  Regs.Ecx := Lo(Age);
-  Regs.Edx := Hi(Age);
+  Regs.Ecx := Lo(dword(Age));
+  Regs.Edx := Hi(dword(Age));
   RealIntr($21, Regs);
   if Regs.Flags and CarryFlag <> 0 then
    result := -Regs.Ax

rtl/win16/sysutils.pp

@@ -471,8 +471,8 @@ var
 begin
   Regs.bx := Handle;
   Regs.ax := $5701;
-  Regs.cx := Lo(Age);
-  Regs.dx := Hi(Age);
+  Regs.cx := Lo(dword(Age));
+  Regs.dx := Hi(dword(Age));
   ZeroSegRegs(Regs);
   MsDos(Regs);
   if Regs.Flags and fCarry <> 0 then