X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fengine%2Fe_sound_sdl.inc;h=4d2e93d25260243e34c6228fb59c4b40cb9ba652;hb=a9520246d47c33f75a5964b908b9ddc63419fa8a;hp=4bac2308a9e6020d3af28e07a703a446732e5f5a;hpb=5472594f32e33da0c66606ec9eebc8f798ef6b54;p=d2df-sdl.git

diff --git a/src/engine/e_sound_sdl.inc b/src/engine/e_sound_sdl.inc
index 4bac230..4d2e93d 100644
--- 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