paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 21:48:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* clock_gettime uses timespec, not timeval

Browse Source 
git-svn-id: trunk@27446 -
This commit is contained in:
michael 2014-04-02 08:25:03 +00:00
parent 37eb616960
commit f61e27ec8e
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/unix/sysutils.pp
View File

@ -333,10 +333,18 @@ End;
function GetTickCount64: QWord;
var
tp: TTimeVal;
{$IFDEF HAVECLOCKGETTIME}
ts: TTimeSpec;
{$ENDIF}
begin
{$IFDEF HAVECLOCKGETTIME}
if clock_gettime(CLOCK_MONOTONIC, @tp)<0 then
{$ENDIF}
{$IFDEF HAVECLOCKGETTIME}
if clock_gettime(CLOCK_MONOTONIC, @ts)=0 then
begin
Result := (Int64(ts.tv_sec) * 1000) + (ts.tv_nsec div 1000000);
exit;
end;
{$ENDIF}
fpgettimeofday(@tp, nil);
Result := (Int64(tp.tv_sec) * 1000) + (tp.tv_usec div 1000);
end;