workaround for FPC 3.2.0 ICE 1.0.0
authoralfadur
Mon, 10 Aug 2020 12:56:53 +0300
branch1.0.0
changeset 15816 b0fe8c8d0bb5
parent 15783 23e16f33b528
child 15834 8fd36e1b66ed
workaround for FPC 3.2.0 ICE
hedgewars/uWorld.pas
--- a/hedgewars/uWorld.pas	Tue Apr 13 15:40:11 2021 -0400
+++ b/hedgewars/uWorld.pas	Mon Aug 10 12:56:53 2020 +0300
@@ -1129,8 +1129,8 @@
 procedure ShiftWorld(Dir: LongInt); inline;
 begin
     preShiftWorldDx:= WorldDx;
-    WorldDx:= WorldDx + LongInt(Dir * LongInt(playWidth));
-
+    Dir := Dir * LongInt(playWidth);
+    WorldDx:= WorldDx + Dir;
 end;
 
 procedure UnshiftWorld(); inline;