Fix another pas2c hiccup in uLandObjects
authorWuzzy <Wuzzy2@mail.ru>
Thu, 04 Oct 2018 19:12:09 +0200
changeset 13858 664935d80668
parent 13857 10a3b80130b5
child 13859 ff468792298a
Fix another pas2c hiccup in uLandObjects
hedgewars/uLandObjects.pas
--- a/hedgewars/uLandObjects.pas	Thu Oct 04 19:04:27 2018 +0200
+++ b/hedgewars/uLandObjects.pas	Thu Oct 04 19:12:09 2018 +0200
@@ -204,7 +204,7 @@
                 pLandColor:= @LandPixels[(cpY + y) div 2, (cpX + x) div 2];
 
             alpha:= (color and AMask) shr AShift;
-            if (alpha <> $FF) and (pLandColor^ <> 0) then
+            if ((alpha <> $FF) and ((pLandColor^) <> 0)) then
                 begin
                 landColor:= pLandColor^;
                 color:=