engine: game: hack-killed some warnings

[d2df-sdl.git] / src / game / g_nethandler.pas

diff --git a/src/game/g_nethandler.pas b/src/game/g_nethandler.pas
index 346a5018f2295f2d20871c01ef1a33e0b8901545..d8b83e043afe46edb44e4a74740553d2575841d4 100644 (file)
--- a/src/game/g_nethandler.pas
+++ b/src/game/g_nethandler.pas
@@ -2,8 +2,7 @@
  *
  * This program is free software: you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation, either version 3 of the License, or
- * (at your option) any later version.
+ * the Free Software Foundation, version 3 of the License ONLY.
  *
  * This program is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
@@ -39,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
@@ -55,6 +54,8 @@ begin
     NetMsg.Seek(MNext);
   end;
 
+  MHandled := not MHandled; //k8: stfu, fpc!
+
   enet_packet_destroy(P);
 end;
 
@@ -62,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
@@ -78,6 +79,8 @@ begin
     NetMsg.Seek(MNext);
   end;
 
+  MHandled := not MHandled; //k8: stfu, fpc!
+
   enet_packet_destroy(P);
 end;