X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fshared%2Fidpool.pas;h=9e0a0124e810bff02b7a74d79d6cf1e5305a1c76;hb=56ec1dee6d63a32353f94eac7e87d6a42b801a25;hp=8cb99e6fca1775be4b4854fcbb4f9ddbb3cbed7a;hpb=31c92166ce1ba9decf93e39f77e77833f879c4b4;p=d2df-sdl.git

diff --git a/src/shared/idpool.pas b/src/shared/idpool.pas
index 8cb99e6..9e0a012 100644
--- a/src/shared/idpool.pas
+++ b/src/shared/idpool.pas
@@ -19,10 +19,16 @@ 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;