index 6fb00357b467071a192a46556511fd86b0021780..f61b844edb9133b04ff5d01172949058729d7aae 100644 (file)
--- a/src/shared/xprofiler.pas
+++ b/src/shared/xprofiler.pas
end;
-function curTimeMicro (): UInt64; inline;
-function curTimeMilli (): UInt64; inline;
+function getTimeMicro (): UInt64; inline;
+function getTimeMilli (): UInt64; inline;
implementation
end;
-function curTimeMicro (): UInt64; inline;
+function getTimeMicro (): UInt64; inline;
var
r: THPTimeType;
begin
end;
-function curTimeMilli (): UInt64; inline;
+function getTimeMilli (): UInt64; inline;
begin
- result := curTimeMicro div 1000;
+ result := getTimeMicro div 1000;
end;
var
e: UInt64;
begin
- e := curTimeMicro();
+ e := getTimeMicro();
if (mStartPosition > e) then mStartPosition := e;
Inc(mElapsed, e-mStartPosition);
mStartPosition := e;
procedure TStopWatch.start (reset: Boolean=true);
begin
if mRunning and not reset then exit; // nothing to do
- mStartPosition := curTimeMicro();
+ mStartPosition := getTimeMicro();
mRunning := true;
if (reset) then mElapsed := 0;
end;