long int_index(long n, double *x1, double x2) {
  long klo, khi, k;
  klo = 0;
  khi = n - 1;
  while (khi - klo > 1) {
    k = (khi + klo) / 2;
    if (x1[k] > x2)
      khi = k;
    else
      klo = k;
  }
  return (klo);
}


x86 assembly (clang, -O0):
<int_index>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
movsd  %xmm0,-0x18(%rbp)
movq   $0x0,-0x20(%rbp)
mov    -0x8(%rbp),%rax
sub    $0x1,%rax
mov    %rax,-0x28(%rbp)
mov    -0x28(%rbp),%rax
sub    -0x20(%rbp),%rax
cmp    $0x1,%rax
jle    117f <int_index+0x7f>
mov    -0x28(%rbp),%rax
add    -0x20(%rbp),%rax
mov    $0x2,%ecx
cqto
idiv   %rcx
mov    %rax,-0x30(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd -0x18(%rbp),%xmm0
jbe    1172 <int_index+0x72>
mov    -0x30(%rbp),%rax
mov    %rax,-0x28(%rbp)
jmp    117a <int_index+0x7a>
mov    -0x30(%rbp),%rax
mov    %rax,-0x20(%rbp)
jmp    1125 <int_index+0x25>
mov    -0x20(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<int_index>:
cmp    $0x3,%rdi
jl     1143 <int_index+0x43>
add    $0xffffffffffffffff,%rdi
xor    %ecx,%ecx
jmp    111f <int_index+0x1f>
xchg   %ax,%ax
mov    %rax,%rcx
mov    %rdi,%rdx
sub    %rax,%rdx
cmp    $0x1,%rdx
jle    1145 <int_index+0x45>
lea    (%rcx,%rdi,1),%rdx
mov    %rdx,%rax
shr    $0x3f,%rax
add    %rdx,%rax
sar    %rax
movsd  (%rsi,%rax,8),%xmm1
ucomisd %xmm0,%xmm1
jbe    1110 <int_index+0x10>
mov    %rax,%rdi
mov    %rcx,%rax
jmp    1113 <int_index+0x13>
xor    %eax,%eax
ret

LLVM IR (-O0):
define i64 @int_index(i64 %0, double* %1, double %2) {
%4 = alloca i64
%5 = alloca double*
%6 = alloca double
%7 = alloca i64
%8 = alloca i64
%9 = alloca i64
store i64 %0, i64* %4
store double* %1, double** %5
store double %2, double* %6
store i64 0, i64* %7
%10 = load i64, i64* %4
%11 = sub nsw i64 %10, 1
store i64 %11, i64* %8
br label %12
12: ; preds = %32, %3
%13 = load i64, i64* %8
%14 = load i64, i64* %7
%15 = sub nsw i64 %13, %14
%16 = icmp sgt i64 %15, 1
br i1 %16, label %17, label %33
17: ; preds = %12
%18 = load i64, i64* %8
%19 = load i64, i64* %7
%20 = add nsw i64 %18, %19
%21 = sdiv i64 %20, 2
store i64 %21, i64* %9
%22 = load double*, double** %5
%23 = load i64, i64* %9
%24 = getelementptr inbounds double, double* %22, i64 %23
%25 = load double, double* %24
%26 = load double, double* %6
%27 = fcmp ogt double %25, %26
br i1 %27, label %28, label %30
28: ; preds = %17
%29 = load i64, i64* %9
store i64 %29, i64* %8
br label %32
30: ; preds = %17
%31 = load i64, i64* %9
store i64 %31, i64* %7
br label %32
32: ; preds = %30, %28
br label %12
33: ; preds = %12
%34 = load i64, i64* %7
ret i64 %34
}

LLVM IR (-O2):
define i64 @int_index(i64 %0, double* nocapture %1, double %2) {
%4 = icmp sgt i64 %0, 2
br i1 %4, label %5, label %19
5: ; preds = %3
%6 = add nsw i64 %0, -1
br label %7
7: ; preds = %5, %7
%8 = phi i64 [ %16, %7 ], [ 0, %5 ]
%9 = phi i64 [ %15, %7 ], [ %6, %5 ]
%10 = add nsw i64 %8, %9
%11 = sdiv i64 %10, 2
%12 = getelementptr inbounds double, double* %1, i64 %11
%13 = load double, double* %12
%14 = fcmp ogt double %13, %2
%15 = select i1 %14, i64 %11, i64 %9
%16 = select i1 %14, i64 %8, i64 %11
%17 = sub nsw i64 %15, %16
%18 = icmp sgt i64 %17, 1
br i1 %18, label %7, label %19
19: ; preds = %7, %3
%20 = phi i64 [ 0, %3 ], [ %16, %7 ]
ret i64 %20
}