# HG changeset patch # User nemo # Date 1345269710 14400 # Node ID f6145d12bb171148b685d3e1cdb19e40e0fd6183 # Parent c7a21fc530de3f2a3fee55f3b22f55033e4c603d Avoid a bit of a memory spike on small maps diff -r c7a21fc530de -r f6145d12bb17 hedgewars/uLand.pas --- a/hedgewars/uLand.pas Fri Aug 17 10:39:23 2012 -0400 +++ b/hedgewars/uLand.pas Sat Aug 18 02:01:50 2012 -0400 @@ -780,7 +780,9 @@ LandBackSurface:= nil; digest:= ''; - + LAND_WIDTH:= 0; + LAND_HEIGHT:= 0; +(* if (cReducedQuality and rqBlurryLand) = 0 then SetLength(LandPixels, LAND_HEIGHT, LAND_WIDTH) else @@ -788,6 +790,7 @@ SetLength(Land, LAND_HEIGHT, LAND_WIDTH); SetLength(LandDirty, (LAND_HEIGHT div 32), (LAND_WIDTH div 32)); +*) end; procedure freeModule;