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.
shutting the windows/pas2c build bot up: pas2c seems to fail parsing 'not' after a logical 'and' or 'or' (if no parenthesis)
authorsheepluva
Mon, 27 Aug 2012 11:05:09 +0200
changeset 7612 047c6692a2e7
parent 7611 5013e11e13e5
child 7613 ce6ead3327b2
child 7614 3ae60c8a15f2
shutting the windows/pas2c build bot up: pas2c seems to fail parsing 'not' after a logical 'and' or 'or' (if no parenthesis)
hedgewars/uGearsHandlersRope.pas file | annotate | diff | comparison | revisions 
--- a/hedgewars/uGearsHandlersRope.pas	Sun Aug 26 21:07:12 2012 -0400
+++ b/hedgewars/uGearsHandlersRope.pas	Mon Aug 27 11:05:09 2012 +0200
@@ -86,7 +86,7 @@
             stuck:= TestCollisionYwithGear(HHGear, 1) <> 0;
             if stuck then HHGear^.Y:= HHGear^.Y-_1
             end
-        until (i = 8) or not stuck;
+        until (i = 8) or (not stuck);
         HHGear^.Y:= HHGear^.Y+_1;
         // experiment in simulating something the shoppa players apparently expect
         if Gear^.Message and gmDown <> 0 then
@@ -110,7 +110,7 @@
             stuck:= TestCollisionYwithGear(HHGear, -1) <> 0;
             if stuck then HHGear^.Y:= HHGear^.Y+_1
             end
-        until (i = 8) or not stuck;
+        until (i = 8) or (not stuck);
         HHGear^.Y:= HHGear^.Y-_1;
         if Gear^.Message and gmDown <> 0 then
             begin
@@ -124,7 +124,7 @@
         else if Gear^.Message and gmLeft <> 0 then
             HHGear^.dX.isNegative:= false
         end;
-    if TestCollisionXwithGear(HHGear, 1) and not TestCollisionXwithGear(HHGear, -1) then
+    if TestCollisionXwithGear(HHGear, 1) and (not TestCollisionXwithGear(HHGear, -1)) then
         begin
         i:= 1;
         repeat
@@ -133,7 +133,7 @@
             stuck:= TestCollisionXwithGear(HHGear, 1);
             if stuck then HHGear^.X:= HHGear^.X-_1
             end
-        until (i = 8) or not stuck;
+        until (i = 8) or (not stuck);
         HHGear^.X:= HHGear^.X+_1;
         if Gear^.Message and gmDown <> 0 then
             begin
@@ -147,7 +147,7 @@
         else if Gear^.Message and gmLeft <> 0 then
             HHGear^.dY.isNegative:= false
         end
-    else if TestCollisionXwithGear(HHGear, -1) and not TestCollisionXwithGear(HHGear, 1) then
+    else if TestCollisionXwithGear(HHGear, -1) and (not TestCollisionXwithGear(HHGear, 1)) then
         begin
         i:= 1;
         repeat
@@ -156,7 +156,7 @@
             stuck:= TestCollisionXwithGear(HHGear, -1);
             if stuck then HHGear^.X:= HHGear^.X+_1
             end
-        until (i = 8) or not stuck;
+        until (i = 8) or (not stuck);
         HHGear^.X:= HHGear^.X-_1;
         if Gear^.Message and gmDown <> 0 then
             begin
hedgewars