simple allocation counter for classes

[d2df-sdl.git] / src / shared / CONFIG.pas

diff --git a/src/shared/CONFIG.pas b/src/shared/CONFIG.pas
index 3dfd736f4a6e1f492090993a7e4a11c96d63053c..155ebacabbeee0357f7e6fbd21225d2541c014f8 100644 (file)
--- a/src/shared/CONFIG.pas
+++ b/src/shared/CONFIG.pas
@@ -24,6 +24,9 @@ CONFIG.PAS 
 
 interface
 
+uses
+  mempool;
+
 type
   TParam = record
    Param: ShortString;
@@ -31,7 +34,7 @@ type
    Section: Word;
   end;
 
-  TConfig = class(TObject)
+  TConfig = class(TPoolObject)
    private
     FParams: array of TParam;
     FSections: array of ShortString;