X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_grid.pas;h=5af372b63a33e5a2ccac7d592829198e60d496b7;hb=fb8592aa898a8da05a47bfe50ff8272de4fdc995;hp=5ef72f2ace02f5868e1e16771ffa6eefce4c2f53;hpb=2d5c517f0d38a9f31e8e780416269ea787852930;p=d2df-sdl.git diff --git a/src/game/g_grid.pas b/src/game/g_grid.pas index 5ef72f2..5af372b 100644 --- a/src/game/g_grid.pas +++ b/src/game/g_grid.pas @@ -1,4 +1,4 @@ -(* Copyright (C) DooM 2D:Forever Developers +(* Copyright (C) Doom 2D: Forever Developers * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by @@ -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 = class(TPoolObject) + generic TBodyGridBase = 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