simple allocation counter for classes

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

diff --git a/src/shared/exoma.pas b/src/shared/exoma.pas
index 8616b7ba21d138914aaf2f109b91c7669799f7ef..ec9bbf8b40d0d83f62e97ef3577ce54bf40ba535 100644 (file)
--- a/src/shared/exoma.pas
+++ b/src/shared/exoma.pas
@@ -19,7 +19,7 @@ unit exoma;
 interface
 
 uses
-  typinfo, SysUtils, Variants, hashtable, xparser;
+  typinfo, SysUtils, Variants, mempool, hashtable, xparser;
 
 
 // ////////////////////////////////////////////////////////////////////////// //
@@ -41,7 +41,7 @@ type
 
 // ////////////////////////////////////////////////////////////////////////// //
 type
-  TPropHash = class
+  TPropHash = class(TPoolObject)
   private
     mClass: TClass;
     mNames: THashStrInt;
@@ -59,7 +59,7 @@ type
 
 // ////////////////////////////////////////////////////////////////////////// //
 type
-  TExprConstList = class
+  TExprConstList = class(TPoolObject)
   public
     function valid (const cname: AnsiString): Boolean; virtual; abstract;
     function get (const cname: AnsiString; out v: Variant): Boolean; virtual; abstract;
@@ -68,7 +68,7 @@ type
 
 // ////////////////////////////////////////////////////////////////////////// //
 type
-  TExprScope = class
+  TExprScope = class(TPoolObject)
   public
     class procedure error (const amsg: AnsiString);
     class procedure errorfmt (const afmt: AnsiString; const args: array of const);
@@ -78,7 +78,7 @@ type
     procedure setField (obj: TObject; const afldname: AnsiString; var aval: Variant); virtual;
   end;
 
-  TExprBase = class
+  TExprBase = class(TPoolObject)
   public
     class function coerce2bool (var v0: Variant): Boolean;
     class function toInt (var v: Variant): LongInt;