--- a/hedgewars/adler32.pas Thu Aug 11 23:05:14 2016 +0300
+++ b/hedgewars/adler32.pas Sun Dec 17 00:09:24 2017 +0100
@@ -65,7 +65,7 @@
Also, the structure was removed to simplify C conversion
*)
-function Adler32Update (var adler : longint; Msg :Pointer; Len :longint ) : longint;
+function Adler32Update (adler : longint; Msg :Pointer; Len :longint ) : longint;
implementation
@@ -123,7 +123,7 @@
end;
*)
-function Adler32Update(var adler:longint; Msg: Pointer; Len :longint) : longint;
+function Adler32Update(adler:longint; Msg: Pointer; Len :longint) : longint;
{-update Adler32 with Msg data}
const
BASE = 65521; {max. prime < 65536 }