diff -r 4b36933dce1d -r 23c50be687a9 hedgewars/uLandObjects.pas --- a/hedgewars/uLandObjects.pas Sat May 15 09:21:25 2010 +0000 +++ b/hedgewars/uLandObjects.pas Sun May 16 17:23:30 2010 +0000 @@ -518,18 +518,19 @@ procedure LoadThemeConfig; begin -ReadThemeInfo(ThemeObjects, SprayObjects) + ReadThemeInfo(ThemeObjects, SprayObjects) end; procedure FreeLandObjects(); var i: Longword; begin -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); + for i:= 0 to Pred(MAXTHEMEOBJECTS) do + begin + if ThemeObjects.objs[i].Surf <> nil then + SDL_FreeSurface(ThemeObjects.objs[i].Surf); + if SprayObjects.objs[i].Surf <> nil then + SDL_FreeSurface(SprayObjects.objs[i].Surf); + end; end; end.