Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix perlin gen on 32 bit arch
authorunc0rr
Fri, 14 Mar 2014 13:59:39 +0400
changeset 10196 514e338f2eaf
parent 10195 d1c23bb73346
child 10197 c57798251b55
Fix perlin gen on 32 bit arch
hedgewars/uLandGenPerlin.pas file | annotate | diff | comparison | revisions 
--- a/hedgewars/uLandGenPerlin.pas	Fri Mar 14 00:42:04 2014 +0400
+++ b/hedgewars/uLandGenPerlin.pas	Fri Mar 14 13:59:39 2014 +0400
@@ -54,7 +54,7 @@
 
 function lerp(t, a, b: LongInt) : LongInt; inline;
 begin
-    lerp:= a + (t * (b - a) shr 12)
+    lerp:= a + (Int64(b - a) * t shr 12)
 end;
hedgewars