paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 09:09:19 +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

10
rtl/unix/sysutils.pp
View File

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