# HG changeset patch # User sheepluva # Date 1370442510 -7200 # Node ID d987230b85ed96a6cec67dedc0baae0500408085 # Parent 9330bacf2569520efa8aa630eb39768913c6eb9f fixed all engine compilation hints and notes (that I could see) diff -r 9330bacf2569 -r d987230b85ed hedgewars/GSHandlers.inc --- a/hedgewars/GSHandlers.inc Wed Jun 05 15:42:00 2013 +0200 +++ b/hedgewars/GSHandlers.inc Wed Jun 05 16:28:30 2013 +0200 @@ -5135,7 +5135,7 @@ HHGear, iter: PGear; landRect: TSDL_Rect; ndX, ndY: hwFloat; - i, j, t, gX, gY: LongInt; + i, t, gX, gY: LongInt; hogs: PGearArrayS; vg: PVisualGear; begin diff -r 9330bacf2569 -r d987230b85ed hedgewars/uAIAmmoTests.pas --- a/hedgewars/uAIAmmoTests.pas Wed Jun 05 15:42:00 2013 +0200 +++ b/hedgewars/uAIAmmoTests.pas Wed Jun 05 16:28:30 2013 +0200 @@ -20,7 +20,7 @@ unit uAIAmmoTests; interface -uses SDLh, uConsts, uFloat, uTypes, uAIMisc; +uses uConsts, uFloat, uTypes, uAIMisc; const amtest_Rare = $00000001; // check only several positions amtest_NoTarget = $00000002; // each pos, but no targetting @@ -681,7 +681,7 @@ function TestDesertEagle(Me: PGear; Targ: TTarget; Level: LongInt; var ap: TAttackParams): LongInt; var Vx, Vy, x, y, t: real; d: Longword; - fallDmg, valueResult: LongInt; + {fallDmg, }valueResult: LongInt; begin if (Level > 4) or (Targ.Score < 0) or (Targ.Kind <> gtHedgehog) then exit(BadTurn); Level:= Level; // avoid compiler hint @@ -724,7 +724,7 @@ function TestSniperRifle(Me: PGear; Targ: TTarget; Level: LongInt; var ap: TAttackParams): LongInt; var Vx, Vy, x, y, t, dmg: real; d: Longword; - fallDmg: LongInt; + //fallDmg: LongInt; begin if (Level > 3) or (Targ.Score < 0) or (Targ.Kind <> gtHedgehog) then exit(BadTurn); Level:= Level; // avoid compiler hint diff -r 9330bacf2569 -r d987230b85ed hedgewars/uAIMisc.pas --- a/hedgewars/uAIMisc.pas Wed Jun 05 15:42:00 2013 +0200 +++ b/hedgewars/uAIMisc.pas Wed Jun 05 16:28:30 2013 +0200 @@ -113,7 +113,7 @@ Targets.reset:= false; end; procedure FillTargets; -var i, t: Longword; +var //i, t: Longword; f, e: LongInt; Gear: PGear; begin diff -r 9330bacf2569 -r d987230b85ed hedgewars/uTeams.pas --- a/hedgewars/uTeams.pas Wed Jun 05 15:42:00 2013 +0200 +++ b/hedgewars/uTeams.pas Wed Jun 05 16:28:30 2013 +0200 @@ -110,7 +110,7 @@ end; procedure SwitchHedgehog; -var c, i, t, j: LongWord; +var c, i, t: LongWord; PrevHH, PrevTeam : LongWord; begin TargetPoint.X:= NoPointX;