author | sherman |
Wed, 04 Jun 2014 11:25:13 -0700 | |
changeset 24710 | c019dc4104b2 |
permissions | -rw-r--r-- |
24710
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
1 |
/* |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
2 |
* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
3 |
* |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
4 |
* This code is free software; you can redistribute it and/or modify it |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
5 |
* under the terms of the GNU General Public License version 2 only, as |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
6 |
* published by the Free Software Foundation. Oracle designates this |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
7 |
* particular file as subject to the "Classpath" exception as provided |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
8 |
* by Oracle in the LICENSE file that accompanied this code. |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
9 |
* |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
10 |
* This code is distributed in the hope that it will be useful, but WITHOUT |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
11 |
* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
12 |
* FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
13 |
* version 2 for more details (a copy is included in the LICENSE file that |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
14 |
* accompanied this code). |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
15 |
* |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
16 |
* You should have received a copy of the GNU General Public License version |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
17 |
* 2 along with this work; if not, write to the Free Software Foundation, |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
18 |
* Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA. |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
19 |
* |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
20 |
* Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
21 |
* or visit www.oracle.com if you need additional information or have any |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
22 |
* questions. |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
23 |
*/ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
24 |
|
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
25 |
/* adler32.c -- compute the Adler-32 checksum of a data stream |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
26 |
* Copyright (C) 1995-2011 Mark Adler |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
27 |
* For conditions of distribution and use, see copyright notice in zlib.h |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
28 |
*/ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
29 |
|
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
30 |
/* @(#) $Id$ */ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
31 |
|
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
32 |
#include "zutil.h" |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
33 |
|
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
34 |
#define local static |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
35 |
|
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
36 |
local uLong adler32_combine_ OF((uLong adler1, uLong adler2, z_off64_t len2)); |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
37 |
|
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
38 |
#define BASE 65521 /* largest prime smaller than 65536 */ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
39 |
#define NMAX 5552 |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
40 |
/* NMAX is the largest n such that 255n(n+1)/2 + (n+1)(BASE-1) <= 2^32-1 */ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
41 |
|
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
42 |
#define DO1(buf,i) {adler += (buf)[i]; sum2 += adler;} |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
43 |
#define DO2(buf,i) DO1(buf,i); DO1(buf,i+1); |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
44 |
#define DO4(buf,i) DO2(buf,i); DO2(buf,i+2); |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
45 |
#define DO8(buf,i) DO4(buf,i); DO4(buf,i+4); |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
46 |
#define DO16(buf) DO8(buf,0); DO8(buf,8); |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
47 |
|
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
48 |
/* use NO_DIVIDE if your processor does not do division in hardware -- |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
49 |
try it both ways to see which is faster */ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
50 |
#ifdef NO_DIVIDE |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
51 |
/* note that this assumes BASE is 65521, where 65536 % 65521 == 15 |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
52 |
(thank you to John Reiser for pointing this out) */ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
53 |
# define CHOP(a) \ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
54 |
do { \ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
55 |
unsigned long tmp = a >> 16; \ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
56 |
a &= 0xffffUL; \ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
57 |
a += (tmp << 4) - tmp; \ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
58 |
} while (0) |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
59 |
# define MOD28(a) \ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
60 |
do { \ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
61 |
CHOP(a); \ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
62 |
if (a >= BASE) a -= BASE; \ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
63 |
} while (0) |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
64 |
# define MOD(a) \ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
65 |
do { \ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
66 |
CHOP(a); \ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
67 |
MOD28(a); \ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
68 |
} while (0) |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
69 |
# define MOD63(a) \ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
70 |
do { /* this assumes a is not negative */ \ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
71 |
z_off64_t tmp = a >> 32; \ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
72 |
a &= 0xffffffffL; \ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
73 |
a += (tmp << 8) - (tmp << 5) + tmp; \ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
74 |
tmp = a >> 16; \ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
75 |
a &= 0xffffL; \ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
76 |
a += (tmp << 4) - tmp; \ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
77 |
tmp = a >> 16; \ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
78 |
a &= 0xffffL; \ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
79 |
a += (tmp << 4) - tmp; \ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
80 |
if (a >= BASE) a -= BASE; \ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
81 |
} while (0) |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
82 |
#else |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
83 |
# define MOD(a) a %= BASE |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
84 |
# define MOD28(a) a %= BASE |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
85 |
# define MOD63(a) a %= BASE |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
86 |
#endif |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
87 |
|
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
88 |
/* ========================================================================= */ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
89 |
uLong ZEXPORT adler32(adler, buf, len) |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
90 |
uLong adler; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
91 |
const Bytef *buf; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
92 |
uInt len; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
93 |
{ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
94 |
unsigned long sum2; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
95 |
unsigned n; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
96 |
|
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
97 |
/* split Adler-32 into component sums */ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
98 |
sum2 = (adler >> 16) & 0xffff; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
99 |
adler &= 0xffff; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
100 |
|
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
101 |
/* in case user likes doing a byte at a time, keep it fast */ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
102 |
if (len == 1) { |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
103 |
adler += buf[0]; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
104 |
if (adler >= BASE) |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
105 |
adler -= BASE; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
106 |
sum2 += adler; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
107 |
if (sum2 >= BASE) |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
108 |
sum2 -= BASE; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
109 |
return adler | (sum2 << 16); |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
110 |
} |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
111 |
|
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
112 |
/* initial Adler-32 value (deferred check for len == 1 speed) */ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
113 |
if (buf == Z_NULL) |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
114 |
return 1L; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
115 |
|
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
116 |
/* in case short lengths are provided, keep it somewhat fast */ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
117 |
if (len < 16) { |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
118 |
while (len--) { |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
119 |
adler += *buf++; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
120 |
sum2 += adler; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
121 |
} |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
122 |
if (adler >= BASE) |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
123 |
adler -= BASE; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
124 |
MOD28(sum2); /* only added so many BASE's */ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
125 |
return adler | (sum2 << 16); |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
126 |
} |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
127 |
|
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
128 |
/* do length NMAX blocks -- requires just one modulo operation */ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
129 |
while (len >= NMAX) { |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
130 |
len -= NMAX; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
131 |
n = NMAX / 16; /* NMAX is divisible by 16 */ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
132 |
do { |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
133 |
DO16(buf); /* 16 sums unrolled */ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
134 |
buf += 16; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
135 |
} while (--n); |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
136 |
MOD(adler); |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
137 |
MOD(sum2); |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
138 |
} |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
139 |
|
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
140 |
/* do remaining bytes (less than NMAX, still just one modulo) */ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
141 |
if (len) { /* avoid modulos if none remaining */ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
142 |
while (len >= 16) { |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
143 |
len -= 16; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
144 |
DO16(buf); |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
145 |
buf += 16; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
146 |
} |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
147 |
while (len--) { |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
148 |
adler += *buf++; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
149 |
sum2 += adler; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
150 |
} |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
151 |
MOD(adler); |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
152 |
MOD(sum2); |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
153 |
} |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
154 |
|
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
155 |
/* return recombined sums */ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
156 |
return adler | (sum2 << 16); |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
157 |
} |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
158 |
|
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
159 |
/* ========================================================================= */ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
160 |
local uLong adler32_combine_(adler1, adler2, len2) |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
161 |
uLong adler1; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
162 |
uLong adler2; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
163 |
z_off64_t len2; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
164 |
{ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
165 |
unsigned long sum1; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
166 |
unsigned long sum2; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
167 |
unsigned rem; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
168 |
|
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
169 |
/* for negative len, return invalid adler32 as a clue for debugging */ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
170 |
if (len2 < 0) |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
171 |
return 0xffffffffUL; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
172 |
|
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
173 |
/* the derivation of this formula is left as an exercise for the reader */ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
174 |
MOD63(len2); /* assumes len2 >= 0 */ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
175 |
rem = (unsigned)len2; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
176 |
sum1 = adler1 & 0xffff; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
177 |
sum2 = rem * sum1; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
178 |
MOD(sum2); |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
179 |
sum1 += (adler2 & 0xffff) + BASE - 1; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
180 |
sum2 += ((adler1 >> 16) & 0xffff) + ((adler2 >> 16) & 0xffff) + BASE - rem; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
181 |
if (sum1 >= BASE) sum1 -= BASE; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
182 |
if (sum1 >= BASE) sum1 -= BASE; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
183 |
if (sum2 >= (BASE << 1)) sum2 -= (BASE << 1); |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
184 |
if (sum2 >= BASE) sum2 -= BASE; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
185 |
return sum1 | (sum2 << 16); |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
186 |
} |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
187 |
|
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
188 |
/* ========================================================================= */ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
189 |
uLong ZEXPORT adler32_combine(adler1, adler2, len2) |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
190 |
uLong adler1; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
191 |
uLong adler2; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
192 |
z_off_t len2; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
193 |
{ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
194 |
return adler32_combine_(adler1, adler2, len2); |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
195 |
} |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
196 |
|
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
197 |
uLong ZEXPORT adler32_combine64(adler1, adler2, len2) |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
198 |
uLong adler1; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
199 |
uLong adler2; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
200 |
z_off64_t len2; |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
201 |
{ |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
202 |
return adler32_combine_(adler1, adler2, len2); |
c019dc4104b2
8044725: Bug in zlib 1.2.5 prevents inflation of some gzipped files
sherman
parents:
diff
changeset
|
203 |
} |