# HG changeset patch
# User alfadur
# Date 1539532719 -10800
# Node ID 98eaf1fe1f6b6bb914e5910d09562dcb54613d26
# Parent  b6248c4c2f2332f648c51d34d82accaada4dc54e
fix return name and bound type

diff -r b6248c4c2f23 -r 98eaf1fe1f6b hedgewars/uGearsUtils.pas
--- 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;