hedgewars/uLandTexture.pas
changeset 3045 41732f986b4f
parent 2948 3f21a9dc93d0
child 3165 3ec07a7d8456
equal deleted inserted replaced
3044:8466bd29280f 3045:41732f986b4f
   120             with LandTextures[x, y] do
   120             with LandTextures[x, y] do
   121             begin
   121             begin
   122                 FreeTexture(tex);
   122                 FreeTexture(tex);
   123                 tex:= nil;
   123                 tex:= nil;
   124             end;
   124             end;
       
   125 
       
   126 if LandBackSurface <> nil then
       
   127     SDL_FreeSurface(LandBackSurface);
   125 end;
   128 end;
   126 
   129 
   127 end.
   130 end.