# HG changeset patch
# User unc0rr
# Date 1337021276 -14400
# Node ID 939f53515489ab612267d7cbd867d5003af96403
# Parent  a3408d9ba5ad521633bd3d7096b9f6e2aa9c213e
Learn hask^Wpascal, dudes!

diff -r a3408d9ba5ad -r 939f53515489 hedgewars/uLand.pas
--- a/hedgewars/uLand.pas	Sun May 13 18:50:04 2012 -0400
+++ b/hedgewars/uLand.pas	Mon May 14 22:47:56 2012 +0400
@@ -26,7 +26,7 @@
 procedure freeModule;
 procedure DrawBottomBorder;
 procedure GenMap;
-procedure GenPreview(var Preview: TPreview);
+procedure GenPreview(out Preview: TPreview);
 
 implementation
 uses uConsole, uStore, uRandom, uLandObjects, uIO, uLandTexture, SysUtils,
@@ -677,7 +677,7 @@
 UpdateLandTexture(0, LAND_WIDTH, 0, LAND_HEIGHT);
 end;
 
-procedure GenPreview(var Preview: TPreview);
+procedure GenPreview(out Preview: TPreview);
 var x, y, xx, yy, t, bit, cbit, lh, lw: LongInt;
 begin
     WriteLnToConsole('Generating preview...');