X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fshared%2Fidpool.pas;h=9e0a0124e810bff02b7a74d79d6cf1e5305a1c76;hb=313f52c372a4fe70cdfb3fdfaf845b95e05be9d4;hp=7817cc160b259ff91a7eef539205e1276ed1b746;hpb=30f7ce6315b82400548455c6872a271dc1f00f50;p=d2df-sdl.git

diff --git a/src/shared/idpool.pas b/src/shared/idpool.pas
index 7817cc1..9e0a012 100644
--- a/src/shared/idpool.pas
+++ b/src/shared/idpool.pas
@@ -14,15 +14,21 @@
  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  *)
 {$INCLUDE a_modes.inc}
-{$DEFINE IDPOOL_CHECKS}
+{.$DEFINE IDPOOL_CHECKS}
 unit idpool;
 
 interface
 
+{$IFDEF USE_MEMPOOL}
+uses
+  mempool;
+{$ENDIF}
+
+
 // ////////////////////////////////////////////////////////////////////////// //
 type
   //TODO: implement getting n sequential ids
-  TIdPool = class(TObject)
+  TIdPool = class{$IFDEF USE_MEMPOOL}(TPoolObject){$ENDIF}
   public
     const InvalidId = $ffffffff;