hedgewars/uLand.pas
changeset 3045 41732f986b4f
parent 3038 4e48c276a468
child 3046 d54b2c718971
equal deleted inserted replaced
3044:8466bd29280f 3045:41732f986b4f
   860 end;
   860 end;
   861 
   861 
   862 procedure freeModule;
   862 procedure freeModule;
   863 begin
   863 begin
   864     FillChar(LandPixels, sizeof(TLandArray), 0);
   864     FillChar(LandPixels, sizeof(TLandArray), 0);
   865     if LandBackSurface <> nil then
       
   866         SDL_FreeSurface(LandBackSurface);
       
   867 end;
   865 end;
   868 
   866 
   869 end.
   867 end.