Fix some warnings
authorunc0rr
Sat, 24 Sep 2011 21:21:21 +0400
changeset 6013 4c24f064851e
parent 6012 6bac93097da3
child 6014 b432c4b9cc9b
Fix some warnings
hedgewars/SDLh.pas
hedgewars/hwengine.pas
--- a/hedgewars/SDLh.pas	Sat Sep 24 21:14:51 2011 +0400
+++ b/hedgewars/SDLh.pas	Sat Sep 24 21:21:21 2011 +0400
@@ -804,7 +804,7 @@
 
 function  SDL_PeepEvents(event: PSDL_Event; numevents: LongInt; action: SDL_eventaction; minType, maxType: LongInt): LongInt; cdecl; external SDLLibName;
 {$ELSE}
-function  SDL_PeepEvents(event: PSDL_Event; numevents: LongInt; action: SDL_eventaction; mask: LongInt): LongInt; cdecl; external SDLLibName;
+function  SDL_PeepEvents(event: PSDL_Event; numevents: LongInt; action: SDL_eventaction; mask: Longword): LongInt; cdecl; external SDLLibName;
 {$ENDIF}
 
 function  SDL_GetMouseState(x, y: PLongInt): Byte; cdecl; external SDLLibName;
--- a/hedgewars/hwengine.pas	Sat Sep 24 21:14:51 2011 +0400
+++ b/hedgewars/hwengine.pas	Sat Sep 24 21:21:21 2011 +0400
@@ -154,7 +154,9 @@
 {$WARNINGS ON}
 var PrevTime, CurrTime: Longword;
     prevFocusState: boolean;
+{$IFDEF SDL13}
     previousGameState: TGameState;
+{$ENDIF}
 begin
     PrevTime:= SDL_GetTicks;
     while isTerminated = false do