From: Debian Games Team <pkg-games-devel@lists.alioth.debian.org>
Date: Wed, 7 Sep 2022 05:25:07 +0000 (+0100)
Subject: Fix/Workaround build failure with newer fpc 3.2.0
X-Git-Tag: archive/raspbian/1.0.0-20+rpi1^2~6
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=846b890afc48a735bb660ef4fa45c87ef2ca1a4e;p=hedgewars.git

Fix/Workaround build failure with newer fpc 3.2.0

Origin: http://hg.hedgewars.org/hedgewars/rev/6832dab555ae
Bug-Debian: https://bugs.debian.org/968125
Last-Update: 2020-08-10


Gbp-Pq: Name fpc-3.2.0.patch
---

diff --git a/hedgewars/uWorld.pas b/hedgewars/uWorld.pas
index 1bd488a..740fcc5 100644
--- a/hedgewars/uWorld.pas
+++ b/hedgewars/uWorld.pas
@@ -1129,8 +1129,8 @@ var preShiftWorldDx: LongInt;
 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;