int strihash(string, modulus)
register char *string;
int modulus;
{
  register int val = 0;
  register int c;
  while ((c = *string++) != '\0') {
    if (isupper(c))
      c = tolower(c);
    val = val * 997 + c;
  }
  return ((val < 0) ? -val : val) % modulus;
}


x86 assembly (clang, -O0):
<strihash>:
push   %rbp
mov    %rsp,%rbp
sub    $0x20,%rsp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
movl   $0x0,-0x10(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x8(%rbp)
movsbl (%rax),%eax
mov    %eax,-0x14(%rbp)
cmp    $0x0,%eax
je     1182 <strihash+0x62>
mov    -0x14(%rbp),%edi
call   1040 <isupper@plt>
cmp    $0x0,%eax
je     1170 <strihash+0x50>
mov    -0x14(%rbp),%edi
call   1030 <tolower@plt>
mov    %eax,-0x14(%rbp)
imul   $0x3e5,-0x10(%rbp),%eax
add    -0x14(%rbp),%eax
mov    %eax,-0x10(%rbp)
jmp    1136 <strihash+0x16>
cmpl   $0x0,-0x10(%rbp)
jge    1199 <strihash+0x79>
xor    %eax,%eax
sub    -0x10(%rbp),%eax
mov    %eax,-0x18(%rbp)
jmp    119f <strihash+0x7f>
mov    -0x10(%rbp),%eax
mov    %eax,-0x18(%rbp)
mov    -0x18(%rbp),%eax
cltd
idivl  -0xc(%rbp)
mov    %edx,%eax
add    $0x20,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<strihash>:
push   %rbp
push   %r15
push   %r14
push   %rbx
push   %rax
mov    %esi,%r14d
mov    (%rdi),%al
test   %al,%al
je     1171 <strihash+0x51>
mov    %rdi,%rbx
add    $0x1,%rbx
xor    %ebp,%ebp
jmp    1154 <strihash+0x34>
nopl   0x0(%rax,%rax,1)
imul   $0x3e5,%ebp,%ebp
add    %r15d,%ebp
movzbl (%rbx),%eax
add    $0x1,%rbx
test   %al,%al
je     1173 <strihash+0x53>
movsbl %al,%r15d
mov    %r15d,%edi
call   1040 <isupper@plt>
test   %eax,%eax
je     1140 <strihash+0x20>
mov    %r15d,%edi
call   1030 <tolower@plt>
mov    %eax,%r15d
jmp    1140 <strihash+0x20>
xor    %ebp,%ebp
mov    %ebp,%eax
neg    %eax
cmovs  %ebp,%eax
cltd
idiv   %r14d
mov    %edx,%eax
add    $0x8,%rsp
pop    %rbx
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define i32 @strihash(i8* %0, i32 %1) {
%3 = alloca i8*
%4 = alloca i32
%5 = alloca i32
%6 = alloca i32
store i8* %0, i8** %3
store i32 %1, i32* %4
store i32 0, i32* %5
br label %7
7: ; preds = %20, %2
%8 = load i8*, i8** %3
%9 = getelementptr inbounds i8, i8* %8, i32 1
store i8* %9, i8** %3
%10 = load i8, i8* %8
%11 = sext i8 %10 to i32
store i32 %11, i32* %6
%12 = icmp ne i32 %11, 0
br i1 %12, label %13, label %25
13: ; preds = %7
%14 = load i32, i32* %6
%15 = call i32 @isupper(i32 %14)
%16 = icmp ne i32 %15, 0
br i1 %16, label %17, label %20
17: ; preds = %13
%18 = load i32, i32* %6
%19 = call i32 @tolower(i32 %18)
store i32 %19, i32* %6
br label %20
20: ; preds = %17, %13
%21 = load i32, i32* %5
%22 = mul nsw i32 %21, 997
%23 = load i32, i32* %6
%24 = add nsw i32 %22, %23
store i32 %24, i32* %5
br label %7
25: ; preds = %7
%26 = load i32, i32* %5
%27 = icmp slt i32 %26, 0
br i1 %27, label %28, label %31
28: ; preds = %25
%29 = load i32, i32* %5
%30 = sub nsw i32 0, %29
br label %33
31: ; preds = %25
%32 = load i32, i32* %5
br label %33
33: ; preds = %31, %28
%34 = phi i32 [ %30, %28 ], [ %32, %31 ]
%35 = load i32, i32* %4
%36 = srem i32 %34, %35
ret i32 %36
}

LLVM IR (-O2):
define i32 @strihash(i8* nocapture %0, i32 %1) {
%3 = load i8, i8* %0
%4 = icmp eq i8 %3, 0
br i1 %4, label %21, label %5
5: ; preds = %2, %15
%6 = phi i8 [ %19, %15 ], [ %3, %2 ]
%7 = phi i8* [ %9, %15 ], [ %0, %2 ]
%8 = phi i32 [ %18, %15 ], [ 0, %2 ]
%9 = getelementptr inbounds i8, i8* %7, i64 1
%10 = sext i8 %6 to i32
%11 = tail call i32 @isupper(i32 %10)
%12 = icmp eq i32 %11, 0
br i1 %12, label %15, label %13
13: ; preds = %5
%14 = tail call i32 @tolower(i32 %10)
br label %15
15: ; preds = %13, %5
%16 = phi i32 [ %14, %13 ], [ %10, %5 ]
%17 = mul nsw i32 %8, 997
%18 = add nsw i32 %16, %17
%19 = load i8, i8* %9
%20 = icmp eq i8 %19, 0
br i1 %20, label %21, label %5
21: ; preds = %15, %2
%22 = phi i32 [ 0, %2 ], [ %18, %15 ]
%23 = tail call i32 @llvm.abs.i32(i32 %22, i1 true)
%24 = srem i32 %23, %1
ret i32 %24
}