fix stub system driver and some warnings

[d2df-sdl.git] / src / shared / xprofiler.pas

diff --git a/src/shared/xprofiler.pas b/src/shared/xprofiler.pas
index 5e6212b921b5b7ddc04784ad9d601503b3d93483..9e25bdb2122426820aa98270b41032a38f4601ff 100644 (file)
--- 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}