Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uGearsRender.pas
changeset 10560 9f09196d92a6
parent 10547 cc439790ebae
child 10562 3388822b3914 
--- a/hedgewars/uGearsRender.pas	Fri Nov 28 14:58:33 2014 -0500
+++ b/hedgewars/uGearsRender.pas	Sat Nov 29 01:19:29 2014 +0100
@@ -624,7 +624,7 @@
 
         if ((Gear^.State and gstAnimation) <> 0) then
             begin
-            if (TWave(Gear^.Tag) < Low(TWave)) or (TWave(Gear^.Tag) > High(TWave)) then
+            if (Gear^.Tag < LongInt(ord(Low(TWave)))) or (Gear^.Tag > LongInt(ord(High(TWave)))) then
                 begin
                 Gear^.State:= Gear^.State and (not gstAnimation);
                 end
hedgewars