blob: b04dd0b69fa47c43ecf026f4d9ab0e9f1daa7f39 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
# 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;
|