int hash_atom(str)
char *str;
{
  long hval;
  int atom_length;
  hval = str[0] * 113;
  atom_length = 0;
  while (str[atom_length] != 0)
    atom_length++;
  if (atom_length != 0)
    hval += str[atom_length - 1] * 109;
  hval += atom_length;
  return (int)(hval % (1024 * 4));
}


x86 assembly (clang, -O0):
<hash_atom>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
imul   $0x71,%eax,%eax
cltq
mov    %rax,-0x10(%rbp)
movl   $0x0,-0x14(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x0,%eax
je     1142 <hash_atom+0x42>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    111f <hash_atom+0x1f>
cmpl   $0x0,-0x14(%rbp)
je     116a <hash_atom+0x6a>
mov    -0x8(%rbp),%rax
mov    -0x14(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsbl (%rax,%rcx,1),%eax
imul   $0x6d,%eax,%eax
cltq
add    -0x10(%rbp),%rax
mov    %rax,-0x10(%rbp)
movslq -0x14(%rbp),%rax
add    -0x10(%rbp),%rax
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rax
mov    $0x1000,%ecx
cqto
idiv   %rcx
mov    %edx,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<hash_atom>:
movsbq (%rdi),%rcx
test   %rcx,%rcx
je     1120 <hash_atom+0x20>
xor    %edx,%edx
nopl   0x0(%rax,%rax,1)
lea    0x1(%rdx),%rax
cmpb   $0x0,0x1(%rdi,%rdx,1)
mov    %rax,%rdx
jne    1110 <hash_atom+0x10>
jmp    1122 <hash_atom+0x22>
xor    %eax,%eax
imul   $0x71,%rcx,%rcx
test   %eax,%eax
je     113c <hash_atom+0x3c>
lea    -0x1(%rax),%edx
movslq %edx,%rdx
movsbq (%rdi,%rdx,1),%rdx
imul   $0x6d,%rdx,%rdx
add    %rdx,%rcx
mov    %eax,%eax
add    %rcx,%rax
lea    0xfff(%rax),%ecx
test   %rax,%rax
cmovns %eax,%ecx
and    $0xfffff000,%ecx
sub    %ecx,%eax
ret

LLVM IR (-O0):
define i32 @hash_atom(i8* %0) {
%2 = alloca i8*
%3 = alloca i64
%4 = alloca i32
store i8* %0, i8** %2
%5 = load i8*, i8** %2
%6 = getelementptr inbounds i8, i8* %5, i64 0
%7 = load i8, i8* %6
%8 = sext i8 %7 to i32
%9 = mul nsw i32 %8, 113
%10 = sext i32 %9 to i64
store i64 %10, i64* %3
store i32 0, i32* %4
br label %11
11: ; preds = %19, %1
%12 = load i8*, i8** %2
%13 = load i32, i32* %4
%14 = sext i32 %13 to i64
%15 = getelementptr inbounds i8, i8* %12, i64 %14
%16 = load i8, i8* %15
%17 = sext i8 %16 to i32
%18 = icmp ne i32 %17, 0
br i1 %18, label %19, label %22
19: ; preds = %11
%20 = load i32, i32* %4
%21 = add nsw i32 %20, 1
store i32 %21, i32* %4
br label %11
22: ; preds = %11
%23 = load i32, i32* %4
%24 = icmp ne i32 %23, 0
br i1 %24, label %25, label %37
25: ; preds = %22
%26 = load i8*, i8** %2
%27 = load i32, i32* %4
%28 = sub nsw i32 %27, 1
%29 = sext i32 %28 to i64
%30 = getelementptr inbounds i8, i8* %26, i64 %29
%31 = load i8, i8* %30
%32 = sext i8 %31 to i32
%33 = mul nsw i32 %32, 109
%34 = sext i32 %33 to i64
%35 = load i64, i64* %3
%36 = add nsw i64 %35, %34
store i64 %36, i64* %3
br label %37
37: ; preds = %25, %22
%38 = load i32, i32* %4
%39 = sext i32 %38 to i64
%40 = load i64, i64* %3
%41 = add nsw i64 %40, %39
store i64 %41, i64* %3
%42 = load i64, i64* %3
%43 = srem i64 %42, 4096
%44 = trunc i64 %43 to i32
ret i32 %44
}

LLVM IR (-O2):
define i32 @hash_atom(i8* nocapture %0) {
%2 = load i8, i8* %0
%3 = sext i8 %2 to i64
%4 = icmp eq i8 %2, 0
br i1 %4, label %11, label %5
5: ; preds = %1, %5
%6 = phi i64 [ %10, %5 ], [ 1, %1 ]
%7 = getelementptr inbounds i8, i8* %0, i64 %6
%8 = load i8, i8* %7
%9 = icmp eq i8 %8, 0
%10 = add nuw i64 %6, 1
br i1 %9, label %11, label %5
11: ; preds = %5, %1
%12 = phi i64 [ 0, %1 ], [ %6, %5 ]
%13 = mul nsw i64 %3, 113
%14 = trunc i64 %12 to i32
%15 = icmp eq i32 %14, 0
br i1 %15, label %25, label %16
16: ; preds = %11
%17 = shl i64 %12, 32
%18 = add i64 %17, -4294967296
%19 = ashr exact i64 %18, 32
%20 = getelementptr inbounds i8, i8* %0, i64 %19
%21 = load i8, i8* %20
%22 = sext i8 %21 to i64
%23 = mul nsw i64 %22, 109
%24 = add nsw i64 %23, %13
br label %25
25: ; preds = %16, %11
%26 = phi i64 [ %24, %16 ], [ %13, %11 ]
%27 = and i64 %12, 4294967295
%28 = add nsw i64 %26, %27
%29 = srem i64 %28, 4096
%30 = trunc i64 %29 to i32
ret i32 %30
}