Fix/Workaround build failure with newer fpc 3.2.0
authorDebian Games Team <pkg-games-devel@lists.alioth.debian.org>
Mon, 10 Aug 2020 10:06:38 +0000 (11:06 +0100)
committerGianfranco Costamagna <locutusofborg@debian.org>
Mon, 10 Aug 2020 10:06:38 +0000 (11:06 +0100)
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

hedgewars/uWorld.pas

index 1bd488a309ef20c2c501b564cb303a508a123ef1..740fcc53991e65dcbb25690d690d3fcee47e8eeb 100644 (file)
@@ -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;