remove extra begin
authoralfadur
Sun, 14 Oct 2018 18:52:00 +0300
changeset 13921 b6248c4c2f23
parent 13920 f9d135768d17
child 13922 98eaf1fe1f6b
remove extra begin
hedgewars/uGearsUtils.pas
--- a/hedgewars/uGearsUtils.pas	Sun Oct 14 18:45:11 2018 +0300
+++ b/hedgewars/uGearsUtils.pas	Sun Oct 14 18:52:00 2018 +0300
@@ -1055,8 +1055,7 @@
 end;
 
 function CheckGearNearImpl(Kind: TGearType; X, Y: hwFloat; rX, rY: LongInt; exclude: PGear): PGear;
-begin
-    var t: PGear;
+var t: PGear;
     width, dX, dY: hwFloat;
     bound: LongInt;
     isHit: Boolean;