paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-02 19:24:46 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: GetTickCount64 now uses under Linux the kernel function clock_gettime(CLOCK_MONOTONIC,), disable via -dGetTickCountTimeOfDay

Browse Source 
git-svn-id: trunk@44581 -
This commit is contained in:
mattias 2014-04-01 18:02:47 +00:00
parent 3f4da57059
commit 9227536845
1 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/lazutils/lazutf8sysutils.pas
View File

@ -14,9 +14,12 @@ implementation
uses
{$ifdef Windows}
Windows,
Windows,
{$else}
Unix, BaseUnix,
Unix, BaseUnix,
{$IfDef Linux}
Linux,
{$EndIf}
{$endif}
Classes;
@ -66,8 +69,6 @@ Begin
Year:=YYear+(JulianDN*100);
end;
Procedure EpochToLocal(epoch:longint;out year,month,day,hour,minute,second:Word);
{
Transforms Epoch time into local time (hour, minute,seconds)
@ -95,6 +96,15 @@ begin
result := systemTimeToDateTime(SystemTime);
end;
{$IF defined(Linux) and not defined(GetTickCountTimeOfDay)}
function GetTickCount64: QWord;
var
tp: timespec;
begin
clock_gettime(CLOCK_MONOTONIC, @tp); // exists since Linux Kernel 2.6
Result := (Int64(tp.tv_sec) * 1000) + (tp.tv_nsec div 1000000);
end;
{$ELSE}
function GetTickCount64: QWord;
var
tp: TTimeVal;
@ -102,6 +112,8 @@ begin
fpgettimeofday(@tp, nil);
Result := (Int64(tp.tv_sec) * 1000) + (tp.tv_usec div 1000);
end;
{$ENDIF}
{$else}
// Not Windows and not UNIX, so just write the most trivial code until we have something besser:
function NowUTC: TDateTime;