X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fengine%2Fe_input_sdl2.inc;h=effe559e475ec78ed53bc6dfe9858e5ea9e1f79b;hb=04a627f372ad5aa1faf4b4b04b3f400c6f37329f;hp=9e9c7d8aa60d12f4eabee89b8e83c06f11fa9114;hpb=4d3cccccb71233b7d4b88db73a402ca03838640d;p=d2df-sdl.git

diff --git a/src/engine/e_input_sdl2.inc b/src/engine/e_input_sdl2.inc
index 9e9c7d8..effe559 100644
--- a/src/engine/e_input_sdl2.inc
+++ b/src/engine/e_input_sdl2.inc
@@ -215,8 +215,9 @@ const
   JOY2_DOWN = JOYH_BEG + 2*e_MaxJoyHats*4 + 0*4 + HAT_DOWN;
   JOY3_DOWN = JOYH_BEG + 3*e_MaxJoyHats*4 + 0*4 + HAT_DOWN;
 
-function  e_InitInput: Boolean;
-procedure e_ReleaseInput;
+procedure e_Input_Initialize;
+procedure e_Input_Finalize;
+
 procedure e_UnpressAllKeys;
 procedure e_KeyUpDown (key: Integer; down: Boolean);
 
@@ -380,16 +381,15 @@ begin
   result := i < e_MaxJoys
 end;
 
-function e_InitInput: Boolean;
+procedure e_Input_Initialize;
   var i: Integer;
 begin
   for i := 0 to e_MaxJoys - 1 do
     e_JoystickAvailable[i] := False;
-  GenerateKeyNames;
-  result := True
+  GenerateKeyNames
 end;
 
-procedure e_ReleaseInput;
+procedure e_Input_Finalize;
   var i: Integer;
 begin
   for i := 0 to e_MaxJoys - 1 do