Avoid a bit of a memory spike on small maps
authornemo
Sat, 18 Aug 2012 02:01:50 -0400
changeset 7549 f6145d12bb17
parent 7548 c7a21fc530de
child 7551 c212247065e3
Avoid a bit of a memory spike on small maps
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;