mirror of
https://github.com/swc-project/swc.git
synced 2024-12-22 13:11:31 +03:00
27 lines
607 B
TypeScript
27 lines
607 B
TypeScript
|
// Loaded from https://deno.land/x/compress@v0.3.8/zlib/zlib/adler32.ts
|
||
|
|
||
|
|
||
|
export default function adler32(adler: any, buf: any, len: any, pos: any) {
|
||
|
let s1 = (adler & 0xffff) | 0;
|
||
|
let s2 = ((adler >>> 16) & 0xffff) | 0;
|
||
|
let n = 0;
|
||
|
|
||
|
while (len !== 0) {
|
||
|
// Set limit ~ twice less than 5552, to keep
|
||
|
// s2 in 31-bits, because we force signed ints.
|
||
|
// in other case %= will fail.
|
||
|
n = len > 2000 ? 2000 : len;
|
||
|
len -= n;
|
||
|
|
||
|
do {
|
||
|
s1 = (s1 + buf[pos++]) | 0;
|
||
|
s2 = (s2 + s1) | 0;
|
||
|
} while (--n);
|
||
|
|
||
|
s1 %= 65521;
|
||
|
s2 %= 65521;
|
||
|
}
|
||
|
|
||
|
return (s1 | (s2 << 16)) | 0;
|
||
|
}
|