X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_grid.pas;h=27fa615fba297bda231768783ed094bbdc579155;hb=56ec1dee6d63a32353f94eac7e87d6a42b801a25;hp=5ef72f2ace02f5868e1e16771ffa6eefce4c2f53;hpb=899e0378b0e0bb66f78a5b3786746c2d5a1108eb;p=d2df-sdl.git

diff --git a/src/game/g_grid.pas b/src/game/g_grid.pas
index 5ef72f2..27fa615 100644
--- a/src/game/g_grid.pas
+++ b/src/game/g_grid.pas
@@ -26,8 +26,10 @@ unit g_grid;
 
 interface
 
+{$IFDEF USE_MEMPOOL}
 uses
   mempool;
+{$ENDIF}
 
 const
   GridTileSize = 32; // must be power of two!
@@ -35,7 +37,7 @@ const
 type
   TBodyProxyId = Integer;
 
-  generic TBodyGridBase<ITP> = class(TPoolObject)
+  generic TBodyGridBase<ITP> = class{$IFDEF USE_MEMPOOL}(TPoolObject){$ENDIF}
   public
     type TGridQueryCB = function (obj: ITP; tag: Integer): Boolean is nested; // return `true` to stop
     type TGridRayQueryCB = function (obj: ITP; tag: Integer; x, y, prevx, prevy: Integer): Boolean is nested; // return `true` to stop