From: DeaDDooMER <deaddoomer@deadsoftware.ru>
Date: Sat, 19 Jun 2021 14:44:54 +0000 (+0300)
Subject: system: remove sys_Delay
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=e29288453fa69bd586c70120e148ff85e4b24df2;p=d2df-sdl.git

system: remove sys_Delay
---

diff --git a/src/game/Doom2DF.lpr b/src/game/Doom2DF.lpr
index 1e76da9..cf27ff7 100644
--- a/src/game/Doom2DF.lpr
+++ b/src/game/Doom2DF.lpr
@@ -293,7 +293,7 @@ begin
     Frame := Time
   end
   else
-    sys_Delay(1);
+    Sleep(1);
 
   e_SoundUpdate();
 end;
diff --git a/src/game/sdl/g_system.pas b/src/game/sdl/g_system.pas
index 117215d..bb8fd7a 100644
--- a/src/game/sdl/g_system.pas
+++ b/src/game/sdl/g_system.pas
@@ -19,9 +19,6 @@ interface
 
   uses Utils;
 
-  (* --- Utils --- *)
-  procedure sys_Delay (ms: Integer);
-
   (* --- Graphics --- *)
   function sys_GetDisplayModes (bpp: Integer): SSArray;
   function sys_SetDisplayMode (w, h, bpp: Integer; fullscreen, maximized: Boolean): Boolean;
@@ -58,13 +55,6 @@ implementation
     JoystickHatState: array [0..e_MaxJoys - 1, 0..e_MaxJoyHats - 1, HAT_LEFT..HAT_DOWN] of Boolean;
     JoystickZeroAxes: array [0..e_MaxJoys - 1, 0..e_MaxJoyAxes - 1] of Integer;
 
-  (* --------- Utils --------- *)
-
-  procedure sys_Delay (ms: Integer);
-  begin
-    SDL_Delay(ms)
-  end;
-
   (* --------- Graphics --------- *)
 
   function GetTitle (): PChar;
diff --git a/src/game/sdl2/g_system.pas b/src/game/sdl2/g_system.pas
index 5f1b7f3..85b8b6d 100644
--- a/src/game/sdl2/g_system.pas
+++ b/src/game/sdl2/g_system.pas
@@ -19,9 +19,6 @@ interface
 
   uses Utils;
 
-  (* --- Utils --- *)
-  procedure sys_Delay (ms: Integer);
-
   (* --- Graphics --- *)
   function sys_GetDisplayModes (bpp: Integer): SSArray;
   function sys_SetDisplayMode (w, h, bpp: Integer; fullscreen, maximized: Boolean): Boolean;
@@ -63,13 +60,6 @@ implementation
     JoystickHatState: array [0..e_MaxJoys - 1, 0..e_MaxJoyHats - 1, HAT_LEFT..HAT_DOWN] of Boolean;
     JoystickZeroAxes: array [0..e_MaxJoys - 1, 0..e_MaxJoyAxes - 1] of Integer;
 
-  (* --------- Utils --------- *)
-
-  procedure sys_Delay (ms: Integer);
-  begin
-    SDL_Delay(ms)
-  end;
-
   (* --------- Graphics --------- *)
 
   function GetTitle (): PChar;
diff --git a/src/game/stub/g_system.pas b/src/game/stub/g_system.pas
index ab42c12..a1e3473 100644
--- a/src/game/stub/g_system.pas
+++ b/src/game/stub/g_system.pas
@@ -19,9 +19,6 @@ interface
 
   uses Utils;
 
-  (* --- Utils --- *)
-  procedure sys_Delay (ms: Integer);
-
   (* --- Graphics --- *)
   function sys_GetDisplayModes (bpp: Integer): SSArray;
   function sys_SetDisplayMode (w, h, bpp: Integer; fullscreen, maximized: Boolean): Boolean;
@@ -44,13 +41,6 @@ implementation
 
   uses SysUtils;
 
-  (* --------- Utils --------- *)
-
-  procedure sys_Delay (ms: Integer);
-  begin
-    Sleep(ms)
-  end;
-
   (* --------- Graphics --------- *)
 
   procedure sys_Repaint;