unsigned hash(unsigned char *data, int len) {
  unsigned a = 1, b = 0;
  int index;
  for (index = 0; index < len; ++index) {
    a = (a + data[index]) % 65521;
    b = (b + a) % 65521;
  }
  return (b << 16) | a;
}


x86 assembly (clang, -O0):
<hash>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
movl   $0x1,-0x10(%rbp)
movl   $0x0,-0x14(%rbp)
movl   $0x0,-0x18(%rbp)
mov    -0x18(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    1169 <hash+0x69>
mov    -0x10(%rbp),%eax
mov    -0x8(%rbp),%rcx
movslq -0x18(%rbp),%rdx
movzbl (%rcx,%rdx,1),%ecx
add    %ecx,%eax
mov    $0xfff1,%ecx
xor    %edx,%edx
div    %ecx
mov    %edx,-0x10(%rbp)
mov    -0x14(%rbp),%eax
add    -0x10(%rbp),%eax
mov    $0xfff1,%ecx
xor    %edx,%edx
div    %ecx
mov    %edx,-0x14(%rbp)
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    1120 <hash+0x20>
mov    -0x14(%rbp),%eax
shl    $0x10,%eax
or     -0x10(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<hash>:
test   %esi,%esi
jle    111a <hash+0x1a>
mov    %esi,%r8d
cmp    $0x1,%esi
jne    1120 <hash+0x20>
mov    $0x1,%ecx
xor    %esi,%esi
xor    %eax,%eax
jmp    11a6 <hash+0xa6>
mov    $0x1,%eax
ret
mov    %r8d,%r9d
and    $0xfffffffe,%r9d
mov    $0x1,%ecx
xor    %esi,%esi
mov    $0x80078071,%r10d
xor    %eax,%eax
cs nopw 0x0(%rax,%rax,1)
movzbl (%rdi,%rsi,1),%edx
add    %ecx,%edx
mov    %rdx,%rcx
imul   %r10,%rcx
shr    $0x2f,%rcx
imul   $0xfff1,%ecx,%ecx
sub    %ecx,%edx
add    %edx,%eax
mov    %rax,%rcx
imul   %r10,%rcx
shr    $0x2f,%rcx
imul   $0xfff1,%ecx,%ecx
sub    %ecx,%eax
movzbl 0x1(%rdi,%rsi,1),%ecx
add    %edx,%ecx
mov    %rcx,%rdx
imul   %r10,%rdx
shr    $0x2f,%rdx
imul   $0xfff1,%edx,%edx
sub    %edx,%ecx
add    %ecx,%eax
mov    %rax,%rdx
imul   %r10,%rdx
shr    $0x2f,%rdx
imul   $0xfff1,%edx,%edx
sub    %edx,%eax
add    $0x2,%rsi
cmp    %rsi,%r9
jne    1140 <hash+0x40>
test   $0x1,%r8b
je     11dc <hash+0xdc>
movzbl (%rdi,%rsi,1),%edx
add    %edx,%ecx
mov    $0x80078071,%edx
mov    %rcx,%rsi
imul   %rdx,%rsi
shr    $0x2f,%rsi
imul   $0xfff1,%esi,%esi
sub    %esi,%ecx
add    %ecx,%eax
imul   %rax,%rdx
shr    $0x2f,%rdx
imul   $0xfff1,%edx,%edx
sub    %edx,%eax
shl    $0x10,%eax
or     %ecx,%eax
ret

LLVM IR (-O0):
define i32 @hash(i8* %0, i32 %1) {
%3 = alloca i8*
%4 = alloca i32
%5 = alloca i32
%6 = alloca i32
%7 = alloca i32
store i8* %0, i8** %3
store i32 %1, i32* %4
store i32 1, i32* %5
store i32 0, i32* %6
store i32 0, i32* %7
br label %8
8: ; preds = %26, %2
%9 = load i32, i32* %7
%10 = load i32, i32* %4
%11 = icmp slt i32 %9, %10
br i1 %11, label %12, label %29
12: ; preds = %8
%13 = load i32, i32* %5
%14 = load i8*, i8** %3
%15 = load i32, i32* %7
%16 = sext i32 %15 to i64
%17 = getelementptr inbounds i8, i8* %14, i64 %16
%18 = load i8, i8* %17
%19 = zext i8 %18 to i32
%20 = add i32 %13, %19
%21 = urem i32 %20, 65521
store i32 %21, i32* %5
%22 = load i32, i32* %6
%23 = load i32, i32* %5
%24 = add i32 %22, %23
%25 = urem i32 %24, 65521
store i32 %25, i32* %6
br label %26
26: ; preds = %12
%27 = load i32, i32* %7
%28 = add nsw i32 %27, 1
store i32 %28, i32* %7
br label %8
29: ; preds = %8
%30 = load i32, i32* %6
%31 = shl i32 %30, 16
%32 = load i32, i32* %5
%33 = or i32 %31, %32
ret i32 %33
}

LLVM IR (-O2):
define i32 @hash(i8* nocapture %0, i32 %1) {
%3 = icmp sgt i32 %1, 0
br i1 %3, label %4, label %53
4: ; preds = %2
%5 = zext i32 %1 to i64
%6 = and i64 %5, 1
%7 = icmp eq i32 %1, 1
br i1 %7, label %33, label %8
8: ; preds = %4
%9 = and i64 %5, 4294967294
br label %10
10: ; preds = %10, %8
%11 = phi i64 [ 0, %8 ], [ %30, %10 ]
%12 = phi i32 [ 0, %8 ], [ %29, %10 ]
%13 = phi i32 [ 1, %8 ], [ %27, %10 ]
%14 = phi i64 [ 0, %8 ], [ %31, %10 ]
%15 = getelementptr inbounds i8, i8* %0, i64 %11
%16 = load i8, i8* %15
%17 = zext i8 %16 to i32
%18 = add nuw nsw i32 %13, %17
%19 = urem i32 %18, 65521
%20 = add nuw nsw i32 %19, %12
%21 = urem i32 %20, 65521
%22 = or i64 %11, 1
%23 = getelementptr inbounds i8, i8* %0, i64 %22
%24 = load i8, i8* %23
%25 = zext i8 %24 to i32
%26 = add nuw nsw i32 %19, %25
%27 = urem i32 %26, 65521
%28 = add nuw nsw i32 %27, %21
%29 = urem i32 %28, 65521
%30 = add nuw nsw i64 %11, 2
%31 = add i64 %14, 2
%32 = icmp eq i64 %31, %9
br i1 %32, label %33, label %10
33: ; preds = %10, %4
%34 = phi i32 [ undef, %4 ], [ %27, %10 ]
%35 = phi i32 [ undef, %4 ], [ %29, %10 ]
%36 = phi i64 [ 0, %4 ], [ %30, %10 ]
%37 = phi i32 [ 0, %4 ], [ %29, %10 ]
%38 = phi i32 [ 1, %4 ], [ %27, %10 ]
%39 = icmp eq i64 %6, 0
br i1 %39, label %48, label %40
40: ; preds = %33
%41 = getelementptr inbounds i8, i8* %0, i64 %36
%42 = load i8, i8* %41
%43 = zext i8 %42 to i32
%44 = add nuw nsw i32 %38, %43
%45 = urem i32 %44, 65521
%46 = add nuw nsw i32 %45, %37
%47 = urem i32 %46, 65521
br label %48
48: ; preds = %33, %40
%49 = phi i32 [ %34, %33 ], [ %45, %40 ]
%50 = phi i32 [ %35, %33 ], [ %47, %40 ]
%51 = shl nuw i32 %50, 16
%52 = or i32 %51, %49
br label %53
53: ; preds = %48, %2
%54 = phi i32 [ %52, %48 ], [ 1, %2 ]
ret i32 %54
}