unsigned long HashFloat(double number, unsigned long range) {
  unsigned long tally = 0;
  char *word;
  unsigned i;
  word = (char *)&number;
  for (i = 0; i < sizeof(double); i++) {
    tally = tally * 127 + word[i];
  }
  if (range == 0) {
    return tally;
  }
  return (tally % range);
}


x86 assembly (clang, -O0):
<HashFloat>:
push   %rbp
mov    %rsp,%rbp
movsd  %xmm0,-0x10(%rbp)
mov    %rdi,-0x18(%rbp)
movq   $0x0,-0x20(%rbp)
lea    -0x10(%rbp),%rax
mov    %rax,-0x28(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    $0x8,%rax
jae    1157 <HashFloat+0x57>
imul   $0x7f,-0x20(%rbp),%rax
mov    -0x28(%rbp),%rcx
mov    -0x2c(%rbp),%edx
movsbq (%rcx,%rdx,1),%rcx
add    %rcx,%rax
mov    %rax,-0x20(%rbp)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1124 <HashFloat+0x24>
cmpq   $0x0,-0x18(%rbp)
jne    116f <HashFloat+0x6f>
mov    -0x20(%rbp),%rax
mov    %rax,-0x8(%rbp)
jmp    117f <HashFloat+0x7f>
mov    -0x20(%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):
<HashFloat>:
movq   %xmm0,%rax
movsbq %al,%rcx
mov    %rcx,%rdx
shl    $0x7,%rdx
sub    %rcx,%rdx
mov    %rax,%rcx
shr    $0x8,%rcx
movsbq %cl,%rcx
add    %rdx,%rcx
mov    %rcx,%rdx
shl    $0x7,%rdx
sub    %rcx,%rdx
mov    %rax,%rcx
shr    $0x10,%rcx
movsbq %cl,%rcx
add    %rdx,%rcx
mov    %rcx,%rdx
shl    $0x7,%rdx
sub    %rcx,%rdx
mov    %rax,%rcx
shr    $0x18,%rcx
movsbq %cl,%rcx
add    %rdx,%rcx
mov    %rcx,%rdx
shl    $0x7,%rdx
sub    %rcx,%rdx
mov    %rax,%rcx
shr    $0x20,%rcx
movsbq %cl,%rcx
add    %rdx,%rcx
mov    %rcx,%rdx
shl    $0x7,%rdx
sub    %rcx,%rdx
mov    %rax,%rcx
shr    $0x28,%rcx
movsbq %cl,%rcx
add    %rdx,%rcx
mov    %rcx,%rdx
shl    $0x7,%rdx
sub    %rcx,%rdx
mov    %rax,%rcx
shr    $0x30,%rcx
movsbq %cl,%rcx
add    %rdx,%rcx
mov    %rcx,%rdx
shl    $0x7,%rdx
sub    %rcx,%rdx
sar    $0x38,%rax
add    %rdx,%rax
test   %rdi,%rdi
je     11c3 <HashFloat+0xc3>
mov    %rax,%rcx
or     %rdi,%rcx
shr    $0x20,%rcx
je     11c4 <HashFloat+0xc4>
xor    %edx,%edx
div    %rdi
mov    %rdx,%rax
ret
xor    %edx,%edx
div    %edi
mov    %edx,%eax
ret

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

LLVM IR (-O2):
define i64 @HashFloat(double %0, i64 %1) {
%3 = bitcast double %0 to i64
%4 = shl i64 %3, 56
%5 = ashr exact i64 %4, 56
%6 = mul nsw i64 %5, 127
%7 = shl i64 %3, 48
%8 = ashr i64 %7, 56
%9 = add nsw i64 %6, %8
%10 = mul nsw i64 %9, 127
%11 = shl i64 %3, 40
%12 = ashr i64 %11, 56
%13 = add nsw i64 %10, %12
%14 = mul nsw i64 %13, 127
%15 = shl i64 %3, 32
%16 = ashr i64 %15, 56
%17 = add nsw i64 %14, %16
%18 = mul nsw i64 %17, 127
%19 = shl i64 %3, 24
%20 = ashr i64 %19, 56
%21 = add nsw i64 %18, %20
%22 = mul nsw i64 %21, 127
%23 = shl i64 %3, 16
%24 = ashr i64 %23, 56
%25 = add nsw i64 %22, %24
%26 = mul nsw i64 %25, 127
%27 = shl i64 %3, 8
%28 = ashr i64 %27, 56
%29 = add nsw i64 %26, %28
%30 = mul nsw i64 %29, 127
%31 = ashr i64 %3, 56
%32 = add nsw i64 %30, %31
%33 = icmp eq i64 %1, 0
br i1 %33, label %36, label %34
34: ; preds = %2
%35 = urem i64 %32, %1
br label %36
36: ; preds = %2, %34
%37 = phi i64 [ %35, %34 ], [ %32, %2 ]
ret i64 %37
}