X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;ds=sidebyside;f=src%2Fengine%2Fe_sound_al.inc;h=aa843dfba137b59c736efbd1a9537c69571e95c8;hb=0cf129a368fac6c1f7e261806a44f9d5b2ade100;hp=38b9bb6109757f788eaf9864e4283b2d07a39385;hpb=7bcb58a2b40134dbd2c6755269ecbcfb4bde8ddb;p=d2df-sdl.git

diff --git a/src/engine/e_sound_al.inc b/src/engine/e_sound_al.inc
index 38b9bb6..aa843df 100644
--- a/src/engine/e_sound_al.inc
+++ b/src/engine/e_sound_al.inc
@@ -337,6 +337,8 @@ begin
     e_SoundsArray[find_id].Loader := Loader;
   end;
 
+  // the calling side won't free this, the loader will get a copy, so fuck it
+  FreeMem(pData);
   ID := find_id;
   Result := True;
 end;
@@ -412,6 +414,8 @@ begin
     e_SoundsArray[find_id].Loader := Loader;
   end;
 
+  // the calling side won't free this, the loader will get a copy, so fuck it
+  FreeMem(pData);
   ID := find_id;
   Result := True;
 end;