int tp_lua_hash(void const *v, int l) {
  int i, step = (l >> 5) + 1;
  int h = l;
  for (i = l; i >= step; i -= step) {
    h = h ^ ((h << 5) + (h >> 2) + ((unsigned char *)v)[i - 1]);
  }
  return h;
}


x86 assembly (clang, -O0):
<tp_lua_hash>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    -0xc(%rbp),%eax
sar    $0x5,%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
mov    -0xc(%rbp),%eax
mov    %eax,-0x18(%rbp)
mov    -0xc(%rbp),%eax
mov    %eax,-0x10(%rbp)
mov    -0x10(%rbp),%eax
cmp    -0x14(%rbp),%eax
jl     1168 <tp_lua_hash+0x68>
mov    -0x18(%rbp),%eax
mov    -0x18(%rbp),%ecx
shl    $0x5,%ecx
mov    -0x18(%rbp),%edx
sar    $0x2,%edx
add    %edx,%ecx
mov    -0x8(%rbp),%rdx
mov    -0x10(%rbp),%esi
sub    $0x1,%esi
movslq %esi,%rsi
movzbl (%rdx,%rsi,1),%edx
add    %edx,%ecx
xor    %ecx,%eax
mov    %eax,-0x18(%rbp)
mov    -0x14(%rbp),%ecx
mov    -0x10(%rbp),%eax
sub    %ecx,%eax
mov    %eax,-0x10(%rbp)
jmp    1123 <tp_lua_hash+0x23>
mov    -0x18(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<tp_lua_hash>:
mov    %esi,%eax
mov    %esi,%r9d
sar    $0x5,%r9d
cmp    %esi,%r9d
jge    1142 <tp_lua_hash+0x42>
mov    %r9d,%r8d
not    %r8d
mov    %eax,%esi
cs nopw 0x0(%rax,%rax,1)
mov    %eax,%edx
shl    $0x5,%edx
mov    %eax,%ecx
sar    $0x2,%ecx
add    %edx,%ecx
lea    -0x1(%rsi),%edx
movslq %edx,%rdx
movzbl (%rdi,%rdx,1),%edx
add    %ecx,%edx
xor    %edx,%eax
add    %r8d,%esi
cmp    %r9d,%esi
jg     1120 <tp_lua_hash+0x20>
ret

LLVM IR (-O0):
define i32 @tp_lua_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
%8 = load i32, i32* %4
%9 = ashr i32 %8, 5
%10 = add nsw i32 %9, 1
store i32 %10, i32* %6
%11 = load i32, i32* %4
store i32 %11, i32* %7
%12 = load i32, i32* %4
store i32 %12, i32* %5
br label %13
13: ; preds = %33, %2
%14 = load i32, i32* %5
%15 = load i32, i32* %6
%16 = icmp sge i32 %14, %15
br i1 %16, label %17, label %37
17: ; preds = %13
%18 = load i32, i32* %7
%19 = load i32, i32* %7
%20 = shl i32 %19, 5
%21 = load i32, i32* %7
%22 = ashr i32 %21, 2
%23 = add nsw i32 %20, %22
%24 = load i8*, i8** %3
%25 = load i32, i32* %5
%26 = sub nsw i32 %25, 1
%27 = sext i32 %26 to i64
%28 = getelementptr inbounds i8, i8* %24, i64 %27
%29 = load i8, i8* %28
%30 = zext i8 %29 to i32
%31 = add nsw i32 %23, %30
%32 = xor i32 %18, %31
store i32 %32, i32* %7
br label %33
33: ; preds = %17
%34 = load i32, i32* %6
%35 = load i32, i32* %5
%36 = sub nsw i32 %35, %34
store i32 %36, i32* %5
br label %13
37: ; preds = %13
%38 = load i32, i32* %7
ret i32 %38
}

LLVM IR (-O2):
define i32 @tp_lua_hash(i8* nocapture %0, i32 %1) {
%3 = ashr i32 %1, 5
%4 = xor i32 %3, -1
%5 = icmp slt i32 %3, %1
br i1 %5, label %6, label %21
6: ; preds = %2, %6
%7 = phi i32 [ %18, %6 ], [ %1, %2 ]
%8 = phi i32 [ %19, %6 ], [ %1, %2 ]
%9 = shl i32 %7, 5
%10 = ashr i32 %7, 2
%11 = add nsw i32 %9, %10
%12 = add nsw i32 %8, -1
%13 = sext i32 %12 to i64
%14 = getelementptr inbounds i8, i8* %0, i64 %13
%15 = load i8, i8* %14
%16 = zext i8 %15 to i32
%17 = add nsw i32 %11, %16
%18 = xor i32 %17, %7
%19 = add i32 %8, %4
%20 = icmp sgt i32 %19, %3
br i1 %20, label %6, label %21
21: ; preds = %6, %2
%22 = phi i32 [ %1, %2 ], [ %18, %6 ]
ret i32 %22
}