--- 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]));