hedgewars/uLandTexture.pas
changeset 3045 41732f986b4f
parent 2948 3f21a9dc93d0
child 3165 3ec07a7d8456
--- a/hedgewars/uLandTexture.pas	Mon Mar 22 13:44:35 2010 +0000
+++ b/hedgewars/uLandTexture.pas	Mon Mar 22 17:48:19 2010 +0000
@@ -122,6 +122,9 @@
                 FreeTexture(tex);
                 tex:= nil;
             end;
+
+if LandBackSurface <> nil then
+    SDL_FreeSurface(LandBackSurface);
 end;
 
 end.