X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fengine%2Fe_input.pas;h=269a1d17c85c81e277f6ffeaaca4f20a3cba179f;hb=8bce2673b0700750c270ec61fb8ed42b6956549a;hp=d4081ee5615075eaa89c26fb80962c47e82e1dda;hpb=c98b33270a7b8f65385b754ff17f5f2338fa39e2;p=d2df-sdl.git

diff --git a/src/engine/e_input.pas b/src/engine/e_input.pas
index d4081ee..269a1d1 100644
--- a/src/engine/e_input.pas
+++ b/src/engine/e_input.pas
@@ -192,14 +192,14 @@ function PollKeyboard(): Boolean;
 var
   Keys: PByte;
   NKeys: Integer;
-  i: Cardinal;
+  i: NativeUInt;
 begin
   Result := False;
   Keys := SDL_GetKeyboardState(@NKeys);
   if (Keys = nil) or (NKeys < 1) then
     Exit;
   for i := 0 to NKeys do
-    KeyBuffer[i] := ((PByte(Cardinal(Keys) + i)^) <> 0);
+    KeyBuffer[i] := ((PByte(NativeUInt(Keys) + i)^) <> 0);
   for i := NKeys to High(KeyBuffer) do
     KeyBuffer[i] := False;
 end;