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

* Fix another bug found by new hint.

Browse Source 
git-svn-id: trunk@7819 -
This commit is contained in:
daniel 2007-06-26 08:24:09 +00:00
parent 7c124b3817
commit f77150fa71
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/unix/dos.pp
View File

@ -297,7 +297,7 @@ var
{ tz : TimeZone;} { tz : TimeZone;}
begin begin
FPGetTimeOfDay (@tv, nil {,tz}); FPGetTimeOfDay (@tv, nil {,tz});
GetMsCount := tv.tv_Sec * 1000 + tv.tv_uSec div 1000; GetMsCount := int64(tv.tv_Sec) * 1000 + tv.tv_uSec div 1000;
end; end;