X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fengine%2Fe_input.pas;h=021c3ddadf72452b8c4b11358877cf0da23662e5;hb=c81b3c085bea0e6ea549c54bfd9ad5b344c86b01;hp=2a2f435de2c5d5c8ce606e87d9788292995dd766;hpb=a25182b0259235ece5d4a2cdceafd0b2cdfc582b;p=d2df-sdl.git

diff --git a/src/engine/e_input.pas b/src/engine/e_input.pas
index 2a2f435..021c3dd 100644
--- a/src/engine/e_input.pas
+++ b/src/engine/e_input.pas
@@ -13,7 +13,7 @@
  * You should have received a copy of the GNU General Public License
  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  *)
-{$MODE DELPHI}
+{$INCLUDE ../shared/a_modes.inc}
 unit e_input;
 
 interface
@@ -192,14 +192,14 @@ function PollKeyboard(): Boolean;
 var
   Keys: PByte;
   NKeys: Integer;
-  i: NativeInt;
+  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(NativeInt(Keys) + i)^) <> 0);
+    KeyBuffer[i] := ((PByte(NativeUInt(Keys) + i)^) <> 0);
   for i := NKeys to High(KeyBuffer) do
     KeyBuffer[i] := False;
 end;