From e29288453fa69bd586c70120e148ff85e4b24df2 Mon Sep 17 00:00:00 2001 From: DeaDDooMER Date: Sat, 19 Jun 2021 17:44:54 +0300 Subject: [PATCH] system: remove sys_Delay --- src/game/Doom2DF.lpr | 2 +- src/game/sdl/g_system.pas | 10 ---------- src/game/sdl2/g_system.pas | 10 ---------- src/game/stub/g_system.pas | 10 ---------- 4 files changed, 1 insertion(+), 31 deletions(-) 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; -- 2.29.2