paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 17:59:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@44018 -
This commit is contained in:
Tomas Hajny 2020-01-22 12:14:47 +00:00
parent a16f332fbb
commit e790cb067d
6 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/emx/sysutils.pp
View File

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

4
rtl/go32v2/sysutils.pp
View File

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

4
rtl/msdos/sysutils.pp
View File

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

12
rtl/os2/sysutils.pp
View File

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

4
rtl/watcom/sysutils.pp
View File

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

4
rtl/win16/sysutils.pp
View File

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