changeset 3017 | 4a52e0705011 |
parent 2981 | d0471586a616 |
child 3038 | 4e48c276a468 |
3015:20a9c8160e82 | 3017:4a52e0705011 |
---|---|
859 LandBackSurface:= nil; |
859 LandBackSurface:= nil; |
860 end; |
860 end; |
861 |
861 |
862 procedure free_uLand; |
862 procedure free_uLand; |
863 begin |
863 begin |
864 FillChar(LandPixels, sizeof(TLandArray), 0); |
|
864 if LandBackSurface <> nil then |
865 if LandBackSurface <> nil then |
865 SDL_FreeSurface(LandBackSurface); |
866 SDL_FreeSurface(LandBackSurface); |
866 end; |
867 end; |
867 |
868 |
868 end. |
869 end. |