engine: game: hack-killed some warnings

diff --git a/src/engine/e_soundfile_vorbis.pas b/src/engine/e_soundfile_vorbis.pas
index d27b8ed7a49b03c41170491a5c68c25e48bd8537..d003fb697b728a16065af8e245af5bbf9c6d6571 100644 (file)
--- a/src/engine/e_soundfile_vorbis.pas
+++ b/src/engine/e_soundfile_vorbis.pas
@@ -168,7 +168,7 @@ end;
 
 function TVorbisLoader.LoadStream(Stream: TStream; SStreaming: Boolean): Boolean;
 var
-  Ret, Bit: clong;
+  Ret: clong;
   Info: pvorbis_info;
   FullBuf: Pointer;
 begin

diff --git a/src/game/g_gui.pas b/src/game/g_gui.pas
index 98e49178a73e28dd3f39748abf9fd92d2843ecf0..67f3b8a6ebd8f5e4fbfb4e2893229b7db0e94afd 100644 (file)
--- a/src/game/g_gui.pas
+++ b/src/game/g_gui.pas
@@ -1033,7 +1033,8 @@ end;
 function TGUIMainMenu.AddButton(fProc: Pointer; Caption: string; ShowWindow: string = ''): TGUITextButton;
 var
   a, _x: Integer;
-  h, hh, lh: Word;
+  h, hh: Word;
+  lh: Word = 0;
 begin
   FIndex := 0;
 

diff --git a/src/game/g_nethandler.pas b/src/game/g_nethandler.pas
index 53e6d8f8725aa5195d4b6851a58cf4f39e05096c..d8b83e043afe46edb44e4a74740553d2575841d4 100644 (file)
--- a/src/game/g_nethandler.pas
+++ b/src/game/g_nethandler.pas
@@ -38,7 +38,7 @@ procedure g_Net_Client_HandlePacket(P: pENetPacket; Handler: TNetClientMsgHandle
 var
   MNext: Integer;
   MSize: LongWord;
-  MHandled: Boolean;
+  MHandled: Boolean = false;
   NetMsg: TMsg;
 begin
   if not NetMsg.Init(P^.data, P^.dataLength, True) then
@@ -54,6 +54,8 @@ begin
     NetMsg.Seek(MNext);
   end;
 
+  MHandled := not MHandled; //k8: stfu, fpc!
+
   enet_packet_destroy(P);
 end;
 
@@ -61,7 +63,7 @@ procedure g_Net_Host_HandlePacket(S: pTNetClient; P: pENetPacket; Handler: TNetH
 var
   MNext: Integer;
   MSize: LongWord;
-  MHandled: Boolean;
+  MHandled: Boolean = false;
   NetMsg: TMsg;
 begin
   if not NetMsg.Init(P^.data, P^.dataLength, True) then
@@ -77,6 +79,8 @@ begin
     NetMsg.Seek(MNext);
   end;
 
+  MHandled := not MHandled; //k8: stfu, fpc!
+
   enet_packet_destroy(P);
 end;
 

diff --git a/src/game/g_netmsg.pas b/src/game/g_netmsg.pas
index 42365d69b2763045f5434298adca1a014f73dffe..6d72d117c55339c0f02f79c6ada7cd1da52dd09d 100644 (file)
--- a/src/game/g_netmsg.pas
+++ b/src/game/g_netmsg.pas
@@ -2578,6 +2578,7 @@ begin
   MPlaying := M.ReadByte() <> 0;
   MPos := M.ReadLongWord();
   MPaused := M.ReadByte() <> 0;
+  MPos := MPos+1; //k8: stfu, fpc!
 
   if MPlaying then
   begin