# HG changeset patch
# User alfadur
# Date 1597053413 -10800
# Node ID 6832dab555aefa6ef2830d9452a9a88c89299e85
# Parent  eee2b3eff91dec595a7cb486bcfd97036520e971
workaround for FPC 3.2.0 ICE

diff -r eee2b3eff91d -r 6832dab555ae hedgewars/uWorld.pas
--- a/hedgewars/uWorld.pas	Sun Aug 09 14:43:02 2020 +0200
+++ b/hedgewars/uWorld.pas	Mon Aug 10 12:56:53 2020 +0300
@@ -1168,8 +1168,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;