unsigned int tpl_hash(const char *key, int key_len) {
  const char *pkey = key;
  const char *p_key_end = key + key_len;
  register unsigned int h = *key++;
  while (key != p_key_end && *key != 0) {
    unsigned int g;
    h = (h << 5) + *key++;
    if ((g = h & 0xf0000000) != 0)
      h = (h ^ (g >> 24) ^ g);
  }
  return h % 29;
}


x86 assembly (clang, -O0):
<tpl_hash>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,-0x18(%rbp)
mov    -0x8(%rbp),%rax
movslq -0xc(%rbp),%rcx
add    %rcx,%rax
mov    %rax,-0x20(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x8(%rbp)
movsbl (%rax),%eax
mov    %eax,-0x24(%rbp)
mov    -0x8(%rbp),%rcx
xor    %eax,%eax
cmp    -0x20(%rbp),%rcx
mov    %al,-0x29(%rbp)
je     115a <tpl_hash+0x5a>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
setne  %al
mov    %al,-0x29(%rbp)
mov    -0x29(%rbp),%al
test   $0x1,%al
jne    116a <tpl_hash+0x6a>
jmp    11b1 <tpl_hash+0xb1>
mov    -0x24(%rbp),%eax
shl    $0x5,%eax
mov    -0x8(%rbp),%rcx
mov    %rcx,%rdx
add    $0x1,%rdx
mov    %rdx,-0x8(%rbp)
movsbl (%rcx),%ecx
add    %ecx,%eax
mov    %eax,-0x24(%rbp)
mov    -0x24(%rbp),%eax
and    $0xf0000000,%eax
mov    %eax,-0x28(%rbp)
cmp    $0x0,%eax
je     11ac <tpl_hash+0xac>
mov    -0x24(%rbp),%eax
mov    -0x28(%rbp),%ecx
shr    $0x18,%ecx
xor    %ecx,%eax
xor    -0x28(%rbp),%eax
mov    %eax,-0x24(%rbp)
jmp    1137 <tpl_hash+0x37>
mov    -0x24(%rbp),%eax
mov    $0x1d,%ecx
xor    %edx,%edx
div    %ecx
mov    %edx,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<tpl_hash>:
movsbl (%rdi),%eax
cmp    $0x1,%esi
je     1145 <tpl_hash+0x45>
movslq %esi,%r8
mov    $0x1,%edx
movsbl (%rdi,%rdx,1),%esi
test   %esi,%esi
je     1145 <tpl_hash+0x45>
shl    $0x5,%eax
add    %esi,%eax
mov    %eax,%esi
and    $0xf0000000,%esi
mov    %esi,%r9d
shr    $0x18,%r9d
mov    %eax,%ecx
and    $0xfffffff,%ecx
xor    %r9d,%ecx
test   %esi,%esi
cmovne %ecx,%eax
add    $0x1,%rdx
cmp    %rdx,%r8
jne    1110 <tpl_hash+0x10>
mov    %eax,%ecx
mov    $0x8d3dcb09,%edx
imul   %rcx,%rdx
shr    $0x24,%rdx
lea    (%rdx,%rdx,8),%ecx
lea    (%rcx,%rcx,2),%ecx
add    %edx,%ecx
add    %edx,%ecx
sub    %ecx,%eax
ret

LLVM IR (-O0):
define i32 @tpl_hash(i8* %0, i32 %1) {
%3 = alloca i8*
%4 = alloca i32
%5 = alloca i8*
%6 = alloca i8*
%7 = alloca i32
%8 = alloca i32
store i8* %0, i8** %3
store i32 %1, i32* %4
%9 = load i8*, i8** %3
store i8* %9, i8** %5
%10 = load i8*, i8** %3
%11 = load i32, i32* %4
%12 = sext i32 %11 to i64
%13 = getelementptr inbounds i8, i8* %10, i64 %12
store i8* %13, i8** %6
%14 = load i8*, i8** %3
%15 = getelementptr inbounds i8, i8* %14, i32 1
store i8* %15, i8** %3
%16 = load i8, i8* %14
%17 = sext i8 %16 to i32
store i32 %17, i32* %7
br label %18
18: ; preds = %47, %2
%19 = load i8*, i8** %3
%20 = load i8*, i8** %6
%21 = icmp ne i8* %19, %20
br i1 %21, label %22, label %27
22: ; preds = %18
%23 = load i8*, i8** %3
%24 = load i8, i8* %23
%25 = sext i8 %24 to i32
%26 = icmp ne i32 %25, 0
br label %27
27: ; preds = %22, %18
%28 = phi i1 [ false, %18 ], [ %26, %22 ]
br i1 %28, label %29, label %48
29: ; preds = %27
%30 = load i32, i32* %7
%31 = shl i32 %30, 5
%32 = load i8*, i8** %3
%33 = getelementptr inbounds i8, i8* %32, i32 1
store i8* %33, i8** %3
%34 = load i8, i8* %32
%35 = sext i8 %34 to i32
%36 = add i32 %31, %35
store i32 %36, i32* %7
%37 = load i32, i32* %7
%38 = and i32 %37, -268435456
store i32 %38, i32* %8
%39 = icmp ne i32 %38, 0
br i1 %39, label %40, label %47
40: ; preds = %29
%41 = load i32, i32* %7
%42 = load i32, i32* %8
%43 = lshr i32 %42, 24
%44 = xor i32 %41, %43
%45 = load i32, i32* %8
%46 = xor i32 %44, %45
store i32 %46, i32* %7
br label %47
47: ; preds = %40, %29
br label %18
48: ; preds = %27
%49 = load i32, i32* %7
%50 = urem i32 %49, 29
ret i32 %50
}

LLVM IR (-O2):
define i32 @tpl_hash(i8* %0, i32 %1) {
%3 = sext i32 %1 to i64
%4 = getelementptr inbounds i8, i8* %0, i64 %3
%5 = load i8, i8* %0
%6 = sext i8 %5 to i32
%7 = icmp eq i32 %1, 1
br i1 %7, label %27, label %8
8: ; preds = %2
%9 = getelementptr inbounds i8, i8* %0, i64 1
br label %10
10: ; preds = %8, %15
%11 = phi i8* [ %25, %15 ], [ %9, %8 ]
%12 = phi i32 [ %24, %15 ], [ %6, %8 ]
%13 = load i8, i8* %11
%14 = icmp eq i8 %13, 0
br i1 %14, label %27, label %15
15: ; preds = %10
%16 = sext i8 %13 to i32
%17 = shl i32 %12, 5
%18 = add i32 %17, %16
%19 = and i32 %18, -268435456
%20 = icmp eq i32 %19, 0
%21 = lshr exact i32 %19, 24
%22 = and i32 %18, 268435455
%23 = xor i32 %22, %21
%24 = select i1 %20, i32 %18, i32 %23
%25 = getelementptr inbounds i8, i8* %11, i64 1
%26 = icmp eq i8* %25, %4
br i1 %26, label %27, label %10
27: ; preds = %10, %15, %2
%28 = phi i32 [ %6, %2 ], [ %24, %15 ], [ %12, %10 ]
%29 = urem i32 %28, 29
ret i32 %29
}