X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=lib%2Flizard-safe.c;h=88e9aebd4fc8070a1a97e239d487b8fd8a1b6963;hb=b1fd07e17d8b9041fd026385e51f273adb2bee5a;hp=40a5aa3daf3da7dfef3efc72fff04359320bd860;hpb=3ffe95d46ec6ac2625e6fed49c356699513a3cbf;p=libucw.git

diff --git a/lib/lizard-safe.c b/lib/lizard-safe.c
index 40a5aa3d..88e9aebd 100644
--- a/lib/lizard-safe.c
+++ b/lib/lizard-safe.c
@@ -103,24 +103,3 @@ lizard_decompress_safe(byte *in, struct lizard_buffer *buf, uns expected_length)
   signal_handler[SIGSEGV] = old_handler;
   return ptr;
 }
-
-#define BASE 65521 /* largest prime smaller than 65536 */
-
-inline uns
-update_adler32(uns adler, byte *ptr, uns len)
-  /* taken from RFC1950 */
-{
-  uns s1 = adler & 0xffff;
-  uns s2 = (adler >> 16) & 0xffff;
-  for (uns n = 0; n < len; n++) {
-    s1 = (s1 + ptr[n]) % BASE;
-    s2 = (s2 + s1)     % BASE;
-  }
-  return (s2 << 16) + s1;
-}
-
-uns
-adler32(byte *ptr, uns len)
-{
-  return update_adler32(1, ptr, len);
-}