hedgewars/uGearsUtils.pas
changeset 13922 98eaf1fe1f6b
parent 13921 b6248c4c2f23
child 14020 a24c4a051960
--- a/hedgewars/uGearsUtils.pas	Sun Oct 14 18:52:00 2018 +0300
+++ b/hedgewars/uGearsUtils.pas	Sun Oct 14 18:58:39 2018 +0300
@@ -1056,8 +1056,7 @@
 
 function CheckGearNearImpl(Kind: TGearType; X, Y: hwFloat; rX, rY: LongInt; exclude: PGear): PGear;
 var t: PGear;
-    width, dX, dY: hwFloat;
-    bound: LongInt;
+    width, bound, dX, dY: hwFloat;
     isHit: Boolean;
 begin
     t:= GearsList;
@@ -1087,14 +1086,14 @@
 
             if isHit then
             begin
-                CheckGearNear:= t;
+                CheckGearNearImpl:= t;
                 exit;
             end;
         end;
         t:= t^.NextGear
     end;
 
-    CheckGearNear:= nil
+    CheckGearNearImpl:= nil
 end;
 
 function CheckGearNear(Kind: TGearType; X, Y: hwFloat; rX, rY: LongInt): PGear;