# HG changeset patch # User nemo # Date 1269428481 0 # Node ID e6e4c109ceb8f396aaed5a911fc5bdad84c984d5 # Parent 141c26d2717d1cd6dfc232f790b0f57e19894998 Use MAXTHEMEOBJECTS instead of Count which appears to be 0 at this point. diff -r 141c26d2717d -r e6e4c109ceb8 hedgewars/uLandObjects.pas --- a/hedgewars/uLandObjects.pas Tue Mar 23 23:08:57 2010 +0000 +++ b/hedgewars/uLandObjects.pas Wed Mar 24 11:01:21 2010 +0000 @@ -530,12 +530,12 @@ procedure FreeLandObjects(); var i: Longword; begin -for i:= 0 to Pred(ThemeObjects.Count) do - with ThemeObjects.objs[i] do - if Surf <> nil then SDL_FreeSurface(Surf); -for i:= 0 to Pred(SprayObjects.Count) do - with SprayObjects.objs[i] do - if Surf <> nil then SDL_FreeSurface(Surf); +for i:= 0 to Pred(MAXTHEMEOBJECTS) do + if ThemeObjects.objs[i].Surf <> nil then + SDL_FreeSurface(ThemeObjects.objs[i].Surf); +for i:= 0 to Pred(MAXTHEMEOBJECTS) do + if SprayObjects.objs[i].Surf <> nil then + SDL_FreeSurface(SprayObjects.objs[i].Surf); end; end.