diff --git a/src/game/g_grid.pas b/src/game/g_grid.pas
index ce31c63546d60a9721f1211e1cdeab54ad4fa950..79b87ca5a4bf44859ea618fac4f29aec91fd1e28 100644 (file)
--- a/src/game/g_grid.pas
+++ b/src/game/g_grid.pas
cc: PGridCell;
presobj: PGridCellCoord;
begin
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
if (body < 0) or (body > High(mProxies)) then begin result.finishIt(); exit; end;
for g := 0 to High(mGrid) do
begin
cc: PGridCell;
presobj: PITP;
begin
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;
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;
ptag: Integer;
presobj: PITP;
begin
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;
tagmask := tagmask and TagFullMask;
if (tagmask = 0) then begin result.finishIt(); exit; end;
exit;
end;
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;
if (w < 1) or (h < 1) then begin result.finishIt(); exit; end;
tagmask := tagmask and TagFullMask;
presobj: PITP;
begin
log := false;
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;
tagmask := tagmask and TagFullMask;
if (tagmask = 0) then begin result.finishIt(); exit; end;