paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 10:19:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch for arithmetic overflow from Petr Kristan

Browse Source 
git-svn-id: trunk@10566 -
This commit is contained in:
michael 2008-03-26 15:33:24 +00:00
parent 6c49a0f256
commit 33cb576bba
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -75,7 +75,7 @@ end;
function MSecsToTimeStamp(MSecs: comp): TTimeStamp;
begin
result.Date := Trunc(msecs / msecsperday);
msecs:= comp(msecs-result.date*msecsperday);
msecs:= msecs-comp(result.date)*msecsperday;
result.Time := Round(MSecs);
end ;