fix pas2c build, it was broken in the long long ago ( 97f9a25024e6 )
authorsheepluva
Fri, 11 Sep 2015 08:15:17 +0200
changeset 11156 efea685933ae
parent 11155 a10143c3d87d
child 11157 73036e057d32
fix pas2c build, it was broken in the long long ago ( 97f9a25024e6 )
hedgewars/uWorld.pas
--- a/hedgewars/uWorld.pas	Fri Sep 11 07:39:01 2015 +0200
+++ b/hedgewars/uWorld.pas	Fri Sep 11 08:15:17 2015 +0200
@@ -1737,7 +1737,7 @@
                     CursorPoint.X:= (prevPoint.X * 7 + dstX) div 8;
                 end;
 
-        if isPhone() or (cScreenHeight < 600) or ((FollowGear^.dY * z).Round < 10) then
+        if isPhone() or (cScreenHeight < 600) or (hwFloat(FollowGear^.dY * z).Round < 10) then
             CursorPoint.Y:= (prevPoint.Y * 7 + cScreenHeight - (hwRound(FollowGear^.Y) + WorldDy)) div 8
         else
             CursorPoint.Y:= (prevPoint.Y * 7 + cScreenHeight - (hwRound(FollowGear^.Y) + hwSign(FollowGear^.dY) * z + WorldDy)) div 8;