simple allocation counter for classes

[d2df-sdl.git] / src / engine / e_sound_sdl.inc

diff --git a/src/engine/e_sound_sdl.inc b/src/engine/e_sound_sdl.inc
index 4bac2308a9e6020d3af28e07a703a446732e5f5a..4d2e93d25260243e34c6228fb59c4b40cb9ba652 100644 (file)
--- a/src/engine/e_sound_sdl.inc
+++ b/src/engine/e_sound_sdl.inc
@@ -18,6 +18,7 @@ interface
 uses
   sdl2,
   SDL2_mixer,
+  mempool,
   e_log,
   SysUtils;
 
@@ -30,7 +31,7 @@ type
     nRefs: Integer;
   end;
 
-  TBasicSound = class (TObject)
+  TBasicSound = class(TPoolObject)
   private
     FChanNum: Integer; // <0: no channel allocated