X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fshared%2Fidpool.pas;h=4722be8838635794e913348909d334ba72befdcc;hb=31d174a428ef1235e1708b0738804b47e006cf5c;hp=8cb99e6fca1775be4b4854fcbb4f9ddbb3cbed7a;hpb=69e1c288d6d270abd835cde8a87e818d0298799f;p=d2df-sdl.git

diff --git a/src/shared/idpool.pas b/src/shared/idpool.pas
index 8cb99e6..4722be8 100644
--- a/src/shared/idpool.pas
+++ b/src/shared/idpool.pas
@@ -19,10 +19,14 @@ unit idpool;
 
 interface
 
+uses
+  mempool;
+
+
 // ////////////////////////////////////////////////////////////////////////// //
 type
   //TODO: implement getting n sequential ids
-  TIdPool = class(TObject)
+  TIdPool = class(TPoolObject)
   public
     const InvalidId = $ffffffff;