hedgewars/uStore.pas
changeset 7297 af64b509725c
parent 7291 ad4b6c2b09e8
child 7304 8b3575750cd2
equal deleted inserted replaced
7295:e70b81854fb9 7297:af64b509725c
   473     begin
   473     begin
   474     FreeTexture(SpritesData[ii].Texture);
   474     FreeTexture(SpritesData[ii].Texture);
   475     SpritesData[ii].Texture:= nil;
   475     SpritesData[ii].Texture:= nil;
   476     if (SpritesData[ii].Surface <> nil) and (not reload) then
   476     if (SpritesData[ii].Surface <> nil) and (not reload) then
   477         begin
   477         begin
   478         SDL_FreeSurface(SpritesData[ii].Surface);
   478         //SDL_FreeSurface(SpritesData[ii].Surface); released by FreeTexture
   479         SpritesData[ii].Surface:= nil
   479         SpritesData[ii].Surface:= nil
   480         end
   480         end
   481     end;
   481     end;
   482 SDL_FreeSurface(MissionIcons);
   482 SDL_FreeSurface(MissionIcons);
   483 
   483