Переглянути джерело

fix: TStopwatch.GetTimeStamp return wrong value under Linux

Zhan Wang 3 місяців тому
батько
коміт
a1ffb893a3
1 змінених файлів з 1 додано та 1 видалено
  1. 1 1
      packages/vcl-compat/src/system.diagnostics.pp

+ 1 - 1
packages/vcl-compat/src/system.diagnostics.pp

@@ -178,7 +178,7 @@ var
 
 
 begin
 begin
   clock_gettime(CLOCK_MONOTONIC, @res);
   clock_gettime(CLOCK_MONOTONIC, @res);
-  Result:=((StopWatchResolution*res.tv_sec)+res.tv_nsec) div 100;
+  Result:=((Int64(1000000000)*res.tv_sec)+res.tv_nsec) div 100;
 end;
 end;