Remove doubled call of freeEverything. restore freeing of LandBackSurface pending unc0rr explaining why 'sactly he took it out (assuming an error right now)
--- a/hedgewars/hwengine.pas Mon Mar 22 17:48:19 2010 +0000
+++ b/hedgewars/hwengine.pas Mon Mar 22 17:59:59 2010 +0000
@@ -570,10 +570,16 @@
GetParams();
Randomize();
- if GameType = gmtLandPreview then GenLandPreview()
+ if GameType = gmtLandPreview then
+ begin
+{$IFDEF HWLIBRARY}
+ // initEverything(); TODO - Koda, please check to see if this is appropriate here
+{$ENDIF}
+ GenLandPreview();
+ // freeEverything() TODO - Koda, please check if this is also needed here.
+ end
else if GameType = gmtSyntax then DisplayUsage()
else Game();
- freeEverything();
if GameType = gmtSyntax then
ExitCode:= 1
--- a/hedgewars/uLand.pas Mon Mar 22 17:48:19 2010 +0000
+++ b/hedgewars/uLand.pas Mon Mar 22 17:59:59 2010 +0000
@@ -862,6 +862,8 @@
procedure freeModule;
begin
FillChar(LandPixels, sizeof(TLandArray), 0);
+ // TODO - Find out why unc0rr removed this since it will leak
+ if LandBackSurface <> nil then SDL_FreeSurface(LandBackSurface);
end;
end.