unsigned long strcasehash(const char *str, int *length) {
  unsigned char *c = (unsigned char *)str;
  unsigned long hash = 0;
  int l = 0;
  while (*c != '\0') {
    unsigned char lc = *c++;
    hash = (hash * 0xF4243) ^ (lc + 32 * (lc >= 'A' && lc <= 'Z'));
    l++;
  }
  *length = l;
  return hash;
}


x86 assembly (clang, -O0):
<strcasehash>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,-0x18(%rbp)
movq   $0x0,-0x20(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x18(%rbp),%rax
movzbl (%rax),%eax
cmp    $0x0,%eax
je     11a6 <strcasehash+0xa6>
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x18(%rbp)
mov    (%rax),%al
mov    %al,-0x25(%rbp)
imul   $0xf4243,-0x20(%rbp),%rax
mov    %rax,-0x38(%rbp)
movzbl -0x25(%rbp),%eax
mov    %eax,-0x2c(%rbp)
movzbl -0x25(%rbp),%ecx
xor    %eax,%eax
cmp    $0x41,%ecx
mov    %al,-0x26(%rbp)
jl     1179 <strcasehash+0x79>
movzbl -0x25(%rbp),%eax
cmp    $0x5a,%eax
setle  %al
mov    %al,-0x26(%rbp)
mov    -0x38(%rbp),%rax
mov    -0x2c(%rbp),%ecx
mov    -0x26(%rbp),%dl
and    $0x1,%dl
movzbl %dl,%edx
shl    $0x5,%edx
add    %edx,%ecx
movslq %ecx,%rcx
xor    %rcx,%rax
mov    %rax,-0x20(%rbp)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1123 <strcasehash+0x23>
mov    -0x24(%rbp),%ecx
mov    -0x10(%rbp),%rax
mov    %ecx,(%rax)
mov    -0x20(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<strcasehash>:
mov    (%rdi),%dl
test   %dl,%dl
je     1143 <strcasehash+0x43>
xor    %ecx,%ecx
xor    %eax,%eax
nopw   0x0(%rax,%rax,1)
movzbl %dl,%r9d
imul   $0xf4243,%rax,%r8
mov    %r9d,%edx
add    $0xbf,%dl
xor    %eax,%eax
cmp    $0x1a,%dl
setb   %al
shl    $0x5,%rax
add    %r9,%rax
xor    %r8,%rax
movzbl 0x1(%rdi,%rcx,1),%edx
add    $0x1,%rcx
test   %dl,%dl
jne    1110 <strcasehash+0x10>
mov    %ecx,(%rsi)
ret
xor    %eax,%eax
xor    %ecx,%ecx
mov    %ecx,(%rsi)
ret

LLVM IR (-O0):
define i64 @strcasehash(i8* %0, i32* %1) {
%3 = alloca i8*
%4 = alloca i32*
%5 = alloca i8*
%6 = alloca i64
%7 = alloca i32
%8 = alloca i8
store i8* %0, i8** %3
store i32* %1, i32** %4
%9 = load i8*, i8** %3
store i8* %9, i8** %5
store i64 0, i64* %6
store i32 0, i32* %7
br label %10
10: ; preds = %30, %2
%11 = load i8*, i8** %5
%12 = load i8, i8* %11
%13 = zext i8 %12 to i32
%14 = icmp ne i32 %13, 0
br i1 %14, label %15, label %39
15: ; preds = %10
%16 = load i8*, i8** %5
%17 = getelementptr inbounds i8, i8* %16, i32 1
store i8* %17, i8** %5
%18 = load i8, i8* %16
store i8 %18, i8* %8
%19 = load i64, i64* %6
%20 = mul i64 %19, 1000003
%21 = load i8, i8* %8
%22 = zext i8 %21 to i32
%23 = load i8, i8* %8
%24 = zext i8 %23 to i32
%25 = icmp sge i32 %24, 65
br i1 %25, label %26, label %30
26: ; preds = %15
%27 = load i8, i8* %8
%28 = zext i8 %27 to i32
%29 = icmp sle i32 %28, 90
br label %30
30: ; preds = %26, %15
%31 = phi i1 [ false, %15 ], [ %29, %26 ]
%32 = zext i1 %31 to i32
%33 = mul nsw i32 32, %32
%34 = add nsw i32 %22, %33
%35 = sext i32 %34 to i64
%36 = xor i64 %20, %35
store i64 %36, i64* %6
%37 = load i32, i32* %7
%38 = add nsw i32 %37, 1
store i32 %38, i32* %7
br label %10
39: ; preds = %10
%40 = load i32, i32* %7
%41 = load i32*, i32** %4
store i32 %40, i32* %41
%42 = load i64, i64* %6
ret i64 %42
}

LLVM IR (-O2):
define i64 @strcasehash(i8* nocapture %0, i32* nocapture writeonly %1) {
%3 = load i8, i8* %0
%4 = icmp eq i8 %3, 0
br i1 %4, label %21, label %5
5: ; preds = %2, %5
%6 = phi i8 [ %19, %5 ], [ %3, %2 ]
%7 = phi i8* [ %11, %5 ], [ %0, %2 ]
%8 = phi i32 [ %18, %5 ], [ 0, %2 ]
%9 = phi i64 [ %17, %5 ], [ 0, %2 ]
%10 = zext i8 %6 to i64
%11 = getelementptr inbounds i8, i8* %7, i64 1
%12 = mul i64 %9, 1000003
%13 = add i8 %6, -65
%14 = icmp ult i8 %13, 26
%15 = select i1 %14, i64 32, i64 0
%16 = add nuw nsw i64 %15, %10
%17 = xor i64 %16, %12
%18 = add nuw nsw i32 %8, 1
%19 = load i8, i8* %11
%20 = icmp eq i8 %19, 0
br i1 %20, label %21, label %5
21: ; preds = %5, %2
%22 = phi i64 [ 0, %2 ], [ %17, %5 ]
%23 = phi i32 [ 0, %2 ], [ %18, %5 ]
store i32 %23, i32* %1
ret i64 %22
}