X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;ds=sidebyside;f=src%2Fshared%2Fxprofiler.pas;h=f61b844edb9133b04ff5d01172949058729d7aae;hb=9e198c59ced795c654bc7b028d5aedc5f23b53dd;hp=6fb00357b467071a192a46556511fd86b0021780;hpb=c4f5c9d83f401ccc223dad213eec2a6b6f8a6b23;p=d2df-sdl.git

diff --git a/src/shared/xprofiler.pas b/src/shared/xprofiler.pas
index 6fb0035..f61b844 100644
--- a/src/shared/xprofiler.pas
+++ b/src/shared/xprofiler.pas
@@ -143,8 +143,8 @@ type
   end;
 
 
-function curTimeMicro (): UInt64; inline;
-function curTimeMilli (): UInt64; inline;
+function getTimeMicro (): UInt64; inline;
+function getTimeMilli (): UInt64; inline;
 
 
 implementation
@@ -182,7 +182,7 @@ begin
 end;
 
 
-function curTimeMicro (): UInt64; inline;
+function getTimeMicro (): UInt64; inline;
 var
   r: THPTimeType;
 begin
@@ -197,9 +197,9 @@ begin
 end;
 
 
-function curTimeMilli (): UInt64; inline;
+function getTimeMilli (): UInt64; inline;
 begin
-  result := curTimeMicro div 1000;
+  result := getTimeMicro div 1000;
 end;
 
 
@@ -221,7 +221,7 @@ procedure TStopWatch.updateElapsed ();
 var
   e: UInt64;
 begin
-  e := curTimeMicro();
+  e := getTimeMicro();
   if (mStartPosition > e) then mStartPosition := e;
   Inc(mElapsed, e-mStartPosition);
   mStartPosition := e;
@@ -253,7 +253,7 @@ end;
 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;