unsigned long HashSymbol(const char *word, unsigned long range) {
  register int i;
  unsigned long tally = 0;
  for (i = 0; word[i]; i++) {
    tally = tally * 127 + word[i];
  }
  if (range == 0) {
    return tally;
  }
  return (tally % range);
}


x86 assembly (clang, -O0):
<HashSymbol>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
movq   $0x0,-0x28(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
cmpb   $0x0,(%rax,%rcx,1)
je     1154 <HashSymbol+0x54>
imul   $0x7f,-0x28(%rbp),%rax
mov    -0x10(%rbp),%rcx
movslq -0x1c(%rbp),%rdx
movsbq (%rcx,%rdx,1),%rcx
add    %rcx,%rax
mov    %rax,-0x28(%rbp)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    111b <HashSymbol+0x1b>
cmpq   $0x0,-0x18(%rbp)
jne    116c <HashSymbol+0x6c>
mov    -0x28(%rbp),%rax
mov    %rax,-0x8(%rbp)
jmp    117c <HashSymbol+0x7c>
mov    -0x28(%rbp),%rax
xor    %ecx,%ecx
mov    %ecx,%edx
divq   -0x18(%rbp)
mov    %rdx,-0x8(%rbp)
mov    -0x8(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<HashSymbol>:
mov    (%rdi),%cl
test   %cl,%cl
je     1132 <HashSymbol+0x32>
add    $0x1,%rdi
xor    %eax,%eax
nopl   0x0(%rax)
mov    %rax,%rdx
shl    $0x7,%rdx
sub    %rax,%rdx
movsbq %cl,%rax
add    %rdx,%rax
movzbl (%rdi),%ecx
add    $0x1,%rdi
test   %cl,%cl
jne    1110 <HashSymbol+0x10>
test   %rsi,%rsi
jne    1139 <HashSymbol+0x39>
ret
xor    %eax,%eax
test   %rsi,%rsi
je     1131 <HashSymbol+0x31>
mov    %rax,%rcx
or     %rsi,%rcx
shr    $0x20,%rcx
je     114e <HashSymbol+0x4e>
xor    %edx,%edx
div    %rsi
mov    %rdx,%rax
ret
xor    %edx,%edx
div    %esi
mov    %edx,%eax
ret

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

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