Fix warning
authorunc0rr
Tue, 08 Jul 2008 12:53:07 +0000
changeset 1070 6371ecc10806
parent 1069 e7d10b68f372
child 1071 cbd170f54a3c
Fix warning
hedgewars/uGears.pas
hedgewars/uStats.pas
--- a/hedgewars/uGears.pas	Mon Jul 07 17:20:35 2008 +0000
+++ b/hedgewars/uGears.pas	Tue Jul 08 12:53:07 2008 +0000
@@ -405,7 +405,7 @@
 function WaterMachine: boolean;
 const
 	decStep: Longword = 0;
-	LastTurn: LongWord = 0;
+	LastTurn: LongInt = 0;
 var i: LongWord;
 begin
 if (decStep = 0) and (LastTurn < FinishedTurnsTotal) then
--- a/hedgewars/uStats.pas	Mon Jul 07 17:20:35 2008 +0000
+++ b/hedgewars/uStats.pas	Tue Jul 08 12:53:07 2008 +0000
@@ -39,7 +39,7 @@
 procedure SendStats;
 
 var
-	TotalRounds: Longword = -1;
+	TotalRounds: LongInt = -1;
 	FinishedTurnsTotal: LongInt = -1;
 
 implementation