index 5e6212b921b5b7ddc04784ad9d601503b3d93483..9e25bdb2122426820aa98270b41032a38f4601ff 100644 (file)
--- a/src/shared/xprofiler.pas
+++ b/src/shared/xprofiler.pas
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
{$ELSE}
function getTimeMicro: UInt64; inline;
begin
- {$WARNING use stub profiling timer}
+ result := Round(TimeStampToMSecs(DateTimeToTimeStamp(Now())) * 1000);
end;
{$ENDIF}