paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 16:49:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix wrong TimeStampToMSecs result on 32-bit. Fixes issue #40522

Browse Source 
(cherry picked from commit ed000e6cd7)
This commit is contained in:
Michaël Van Canneyt 2023-12-22 11:32:57 +01:00
parent b1f6be15e9
commit bf85a00d58
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/objpas/sysutils/dati.inc
View File

@ -95,7 +95,8 @@ end;
function TimeStampToMSecs(const TimeStamp: TTimeStamp): Int64; function TimeStampToMSecs(const TimeStamp: TTimeStamp): Int64;
begin begin
result := TimeStamp.Time + timestamp.date * msecsperday; // Int64() typecast fixes issues 40522 and 40568 on 32-bit.
result := TimeStamp.Time + Int64(timestamp.date) * msecsperday;
end; end;
Function TryEncodeDate(Year,Month,Day : Word; Out Date : TDateTime) : Boolean; Function TryEncodeDate(Year,Month,Day : Word; Out Date : TDateTime) : Boolean;