# HG changeset patch
# User nemo
# Date 1335302178 14400
# Node ID ee000959d645b8dae1312a13fd25bef6ba53976a
# Parent  6e832f8f4d8e3f4da6245cd56b7bbce147f0d448
Oh, and I guess this is needed as well, although if many other places in the code do this, pas2c will need
to be a bit smarter and automatically wrap.

diff -r 6e832f8f4d8e -r ee000959d645 hedgewars/adler32.pas
--- a/hedgewars/adler32.pas	Tue Apr 24 16:58:19 2012 -0400
+++ b/hedgewars/adler32.pas	Tue Apr 24 17:16:18 2012 -0400
@@ -66,7 +66,7 @@
 Also, the structure was removed to simplify C conversion
 *)
 
-procedure Adler32Update ( var adler     :longint; Msg     :pointer; Len     :longint );
+function Adler32Update ( var adler     :longint; Msg     :pointer; Len     :longint ) : longint;
 
 implementation
 
@@ -124,7 +124,7 @@
 end;
 *)
 
-procedure Adler32Update(var adler: longint; Msg: pointer; Len :longint);
+function Adler32Update(var adler: longint; Msg: pointer; Len :longint) : longint;
     {-update Adler32 with Msg data}
     const
         BASE = 65521; {max. prime < 65536 }
@@ -152,7 +152,7 @@
             s2 := s2 mod BASE;
             dec(len, n);
             end;
-        adler:= (s2 shl 16) or s1;
+        Adler32Update:= (s2 shl 16) or s1;
     end;
 
 end.
diff -r 6e832f8f4d8e -r ee000959d645 hedgewars/uLand.pas
--- a/hedgewars/uLand.pas	Tue Apr 24 16:58:19 2012 -0400
+++ b/hedgewars/uLand.pas	Tue Apr 24 17:16:18 2012 -0400
@@ -728,7 +728,7 @@
 begin
     adler:= 1;
     for i:= 0 to LAND_HEIGHT-1 do
-        Adler32Update(adler, @Land[i,0], LAND_WIDTH);
+        adler:= Adler32Update(adler, @Land[i,0], LAND_WIDTH);
     s:= 'M' + IntToStr(adler) + cScriptName;
 
     chLandCheck(s);