Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix warnings
authorunc0rr
Tue, 17 Jun 2008 19:22:54 +0000
changeset 1001 502508979713
parent 1000 e7b204880318
child 1002 14ecd5fd4fab
Fix warnings
hedgewars/uAIAmmoTests.pas file | annotate | diff | comparison | revisions
hedgewars/uAIMisc.pas file | annotate | diff | comparison | revisions
hedgewars/uChat.pas file | annotate | diff | comparison | revisions 
--- a/hedgewars/uAIAmmoTests.pas	Tue Jun 17 18:45:21 2008 +0000
+++ b/hedgewars/uAIAmmoTests.pas	Tue Jun 17 19:22:54 2008 +0000
@@ -192,7 +192,7 @@
 
 function TestMortar(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
 const tDelta = 24;
-var Vx, Vy, r: hwFloat;
+var Vx, Vy: hwFloat;
     Score, EX, EY, Result: LongInt;
     TestTime: Longword;
 
--- a/hedgewars/uAIMisc.pas	Tue Jun 17 18:45:21 2008 +0000
+++ b/hedgewars/uAIMisc.pas	Tue Jun 17 19:22:54 2008 +0000
@@ -54,7 +54,7 @@
 uses uTeams, uMisc, uLand, uCollisions;
 const KillScore = 200;
       MAXBONUS = 1024;
-      friendlyfactor: Longword = 300;
+      friendlyfactor: LongInt = 300;
 
 type TBonus = record
               X, Y: LongInt;
--- a/hedgewars/uChat.pas	Tue Jun 17 18:45:21 2008 +0000
+++ b/hedgewars/uChat.pas	Tue Jun 17 19:22:54 2008 +0000
@@ -120,7 +120,7 @@
 procedure KeyPressChat(Key: Longword);
 const firstByteMark: array[1..4] of byte = (0, $C0, $E0, $F0);
 var i, btw: integer;
-    utf8, s: shortstring;
+    utf8: shortstring;
 begin
 if Key <> 0 then
 	case Key of
hedgewars