From e651ba08275a787932d6463773a4823f1b0ca30c Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sun, 20 May 2007 09:33:23 +0000
Subject: Fixed a bug in uSMPEG, that causes much memory is not not freeed,
 after playing a Video File. (Texture and Surface are created new every Time)

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@223 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/SMpeg/USmpeg.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'Game')

diff --git a/Game/Code/SMpeg/USmpeg.pas b/Game/Code/SMpeg/USmpeg.pas
index c7f756db..85f3f988 100644
--- a/Game/Code/SMpeg/USmpeg.pas
+++ b/Game/Code/SMpeg/USmpeg.pas
@@ -112,8 +112,9 @@ end;
 
 procedure CloseSmpeg;
 begin
-//  glmovie_quit;
   SMPEG_delete(mpeg);
+  //Fixing the Memory Lag in earlyer Versions (X-Mas Mod, all Official Versions)
+  glmovie_quit;
 end;
 
 function glmovie_init( Width : GLuint; Height : TGLuint ) : TGLenum;
@@ -294,6 +295,7 @@ end;
 procedure glmovie_quit;
 begin
   glDeleteTextures(1, @texture_ids);
+  SDL_FreeSurface(surface);
 end;
 
 end.
-- 
cgit v1.2.3