hedgewars/adler32.pas
branchqmlfrontend
changeset 12855 1b2b84315d27
parent 12758 49c31d8cc740
--- 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 }