X-Git-Url: http://deadsoftware.ru/gitweb?p=d2df-sdl.git;a=blobdiff_plain;f=src%2Fshared%2Fxprofiler.pas;h=9e25bdb2122426820aa98270b41032a38f4601ff;hp=5e6212b921b5b7ddc04784ad9d601503b3d93483;hb=ff17260e083bdf4461154b916a716cd9b61126b1;hpb=4171d8dd0b8d733da27c584616e431811bf0fdcf

diff --git a/src/shared/xprofiler.pas b/src/shared/xprofiler.pas
index 5e6212b..9e25bdb 100644
--- a/src/shared/xprofiler.pas
+++ b/src/shared/xprofiler.pas
@@ -227,14 +227,6 @@ begin
   result := UInt64(r)*1000000 div mFrequency;
   {$ENDIF}
 end;
-(* !!!
-{$ELSEIF DEFINED(USE_SDL)}
-function getTimeMicro: UInt64; inline;
-begin
-  {$WARNING use inaccurate profiling timer}
-  result := SDL_GetTicks() * 1000
-end;
-*)
 {$ELSEIF DEFINED(USE_SDL2)}
 function getTimeMicro (): UInt64; inline;
 begin
@@ -243,7 +235,7 @@ end;
 {$ELSE}
 function getTimeMicro: UInt64; inline;
 begin
-  {$WARNING use stub profiling timer}
+  result := Round(TimeStampToMSecs(DateTimeToTimeStamp(Now())) * 1000);
 end;
 {$ENDIF}