Silly fixes for silly pas2c
authorunc0rr
Sat, 11 Apr 2015 15:34:07 +0300
changeset 10909 594f59bd1751
parent 10907 9b8e9813c6f8
child 10910 df11dea74701
Silly fixes for silly pas2c
hedgewars/pas2cRedo.pas
hedgewars/uLandGraphics.pas
--- a/hedgewars/pas2cRedo.pas	Fri Apr 10 23:58:05 2015 +0300
+++ b/hedgewars/pas2cRedo.pas	Sat Apr 11 15:34:07 2015 +0300
@@ -68,7 +68,7 @@
 
     new, dispose, FillChar, Insert, Delete, Move : procedure;
 
-    trunc, round : function : integer;
+    trunc, round, ceil : function : integer;
     abs, sqr : function : integer;
 
     StrPas, FormatDateTime, copy, str, PosS, trim, LowerCase : function : shortstring;
--- a/hedgewars/uLandGraphics.pas	Fri Apr 10 23:58:05 2015 +0300
+++ b/hedgewars/uLandGraphics.pas	Sat Apr 11 15:34:07 2015 +0300
@@ -875,14 +875,14 @@
                     gY:= (cpY + y) div 2;
                     end;
 		        if (not eraseOnLFMatch or (Land[cpY + y, cpX + x] and LandFlags <> 0)) and
-                    (PLongword(@(p^[x * 4]))^ and AMask <> 0) then
+                    ((PLongword(@(p^[x * 4]))^) and AMask <> 0) then
                     begin
                     if not onlyEraseLF then
                         begin
                         LandPixels[gY, gX]:= 0;
                         Land[cpY + y, cpX + x]:= 0
                         end
-                    else Land[cpY + y, cpX + x]:= Land[cpY + y, cpX + x] and not LandFlags
+                    else Land[cpY + y, cpX + x]:= Land[cpY + y, cpX + x] and (not LandFlags)
                     end
                 end;
         p:= PByteArray(@(p^[Image^.pitch]));