hedgewars/uLandOutline.pas
changeset 11532 bf86c6cb9341
parent 10560 9f09196d92a6
child 13928 c36aaa30be98
--- a/hedgewars/uLandOutline.pas	Sun Jan 24 00:02:57 2016 +0100
+++ b/hedgewars/uLandOutline.pas	Sun Jan 31 16:07:14 2016 +0300
@@ -30,7 +30,7 @@
 
 procedure Push(_xl, _xr, _y, _dir: LongInt);
 begin
-    TryDo(Stack.Count <= 8192, 'FillLand: stack overflow', true);
+    if checkFails(Stack.Count <= 8192, 'FillLand: stack overflow', true) then exit;
     _y:= _y + _dir;
     if (_y < 0) or (_y >= LAND_HEIGHT) then
         exit;