X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_grid.pas;h=79b87ca5a4bf44859ea618fac4f29aec91fd1e28;hb=ba8cb4548eeab44bfe9c6db0081de5a9ac9600dd;hp=ce31c63546d60a9721f1211e1cdeab54ad4fa950;hpb=52046a296d5acd6588c2dde5918cdb6cbd26fc52;p=d2df-sdl.git

diff --git a/src/game/g_grid.pas b/src/game/g_grid.pas
index ce31c63..79b87ca 100644
--- a/src/game/g_grid.pas
+++ b/src/game/g_grid.pas
@@ -704,7 +704,7 @@ var
   cc: PGridCell;
   presobj: PGridCellCoord;
 begin
-  result := CellCoordIter.Create(true);
+  result := CellCoordIter.Create(framePool);
   if (body < 0) or (body > High(mProxies)) then begin result.finishIt(); exit; end;
   for g := 0 to High(mGrid) do
   begin
@@ -737,7 +737,7 @@ var
   cc: PGridCell;
   presobj: PITP;
 begin
-  result := Iter.Create(true);
+  result := Iter.Create(framePool);
   Dec(x, mMinX);
   Dec(y, mMinY);
   if (x < 0) or (y < 0) or (x >= mWidth*mTileSize) or (y > mHeight*mTileSize) then begin result.finishIt(); exit; end;
@@ -1346,7 +1346,7 @@ var
   ptag: Integer;
   presobj: PITP;
 begin
-  result := Iter.Create(true);
+  result := Iter.Create(framePool);
   tagmask := tagmask and TagFullMask;
   if (tagmask = 0) then begin result.finishIt(); exit; end;
 
@@ -1438,7 +1438,7 @@ begin
     exit;
   end;
 
-  result := Iter.Create(true);
+  result := Iter.Create(framePool);
   if (w < 1) or (h < 1) then begin result.finishIt(); exit; end;
 
   tagmask := tagmask and TagFullMask;
@@ -1533,7 +1533,7 @@ var
   presobj: PITP;
 begin
   log := false;
-  result := Iter.Create(true);
+  result := Iter.Create(framePool);
   tagmask := tagmask and TagFullMask;
   if (tagmask = 0) then begin result.finishIt(); exit; end;