long indexxd(double x0, double *x, long n) {
  long i, delta;
  if (x0 < x[0])
    return (-1);
  if (x0 >= x[n - 1])
    return (n - 1);
  i = 0;
  if (n > 10) {
    delta = n >> 1;
    while (delta > 5) {
      for (; i < n && x0 >= x[i]; i += delta)
        ;
      i -= delta;
      delta >>= 1;
    }
  }
  for (; i < n && x0 >= x[i]; i++)
    ;
  return (i - 1);
}


x86 assembly (clang, -O0):
<indexxd>:
push   %rbp
mov    %rsp,%rbp
movsd  %xmm0,-0x10(%rbp)
mov    %rdi,-0x18(%rbp)
mov    %rsi,-0x20(%rbp)
movsd  -0x10(%rbp),%xmm1
mov    -0x18(%rbp),%rax
movsd  (%rax),%xmm0
ucomisd %xmm1,%xmm0
jbe    1135 <indexxd+0x35>
movq   $0xffffffffffffffff,-0x8(%rbp)
ff
jmp    1269 <indexxd+0x169>
movsd  -0x10(%rbp),%xmm0
mov    -0x18(%rbp),%rax
mov    -0x20(%rbp),%rcx
sub    $0x1,%rcx
ucomisd (%rax,%rcx,8),%xmm0
jb     1162 <indexxd+0x62>
mov    -0x20(%rbp),%rax
sub    $0x1,%rax
mov    %rax,-0x8(%rbp)
jmp    1269 <indexxd+0x169>
movq   $0x0,-0x28(%rbp)
cmpq   $0xa,-0x20(%rbp)
jle    1207 <indexxd+0x107>
mov    -0x20(%rbp),%rax
sar    $0x1,%rax
mov    %rax,-0x30(%rbp)
cmpq   $0x5,-0x30(%rbp)
jle    1202 <indexxd+0x102>
jmp    1191 <indexxd+0x91>
mov    -0x28(%rbp),%rcx
xor    %eax,%eax
cmp    -0x20(%rbp),%rcx
mov    %al,-0x31(%rbp)
jge    11bc <indexxd+0xbc>
movsd  -0x10(%rbp),%xmm0
mov    -0x18(%rbp),%rax
mov    -0x28(%rbp),%rcx
ucomisd (%rax,%rcx,8),%xmm0
setae  %al
mov    %al,-0x31(%rbp)
mov    -0x31(%rbp),%al
test   $0x1,%al
jne    11cc <indexxd+0xcc>
jmp    11e2 <indexxd+0xe2>
jmp    11d1 <indexxd+0xd1>
mov    -0x30(%rbp),%rax
add    -0x28(%rbp),%rax
mov    %rax,-0x28(%rbp)
jmp    1191 <indexxd+0x91>
mov    -0x30(%rbp),%rcx
mov    -0x28(%rbp),%rax
sub    %rcx,%rax
mov    %rax,-0x28(%rbp)
mov    -0x30(%rbp),%rax
sar    $0x1,%rax
mov    %rax,-0x30(%rbp)
jmp    1181 <indexxd+0x81>
jmp    1207 <indexxd+0x107>
jmp    120c <indexxd+0x10c>
mov    -0x28(%rbp),%rcx
xor    %eax,%eax
cmp    -0x20(%rbp),%rcx
mov    %al,-0x32(%rbp)
jge    1237 <indexxd+0x137>
movsd  -0x10(%rbp),%xmm0
mov    -0x18(%rbp),%rax
mov    -0x28(%rbp),%rcx
ucomisd (%rax,%rcx,8),%xmm0
setae  %al
mov    %al,-0x32(%rbp)
mov    -0x32(%rbp),%al
test   $0x1,%al
jne    1247 <indexxd+0x147>
jmp    125d <indexxd+0x15d>
jmp    124c <indexxd+0x14c>
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
jmp    120c <indexxd+0x10c>
mov    -0x28(%rbp),%rax
sub    $0x1,%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<indexxd>:
movsd  (%rdi),%xmm1
mov    $0xffffffffffffffff,%rax
ucomisd %xmm0,%xmm1
ja     1187 <indexxd+0x87>
ucomisd -0x8(%rdi,%rsi,8),%xmm0
jae    1161 <indexxd+0x61>
xor    %eax,%eax
cmp    $0xc,%rsi
jl     1169 <indexxd+0x69>
mov    %rsi,%rcx
jmp    1139 <indexxd+0x39>
cs nopw 0x0(%rax,%rax,1)
sub    %rcx,%rax
cmp    $0x17,%rdx
jle    1169 <indexxd+0x69>
mov    %rcx,%rdx
sar    %rcx
cmp    %rsi,%rax
jge    1130 <indexxd+0x30>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
ucomisd (%rdi,%rax,8),%xmm0
jb     1130 <indexxd+0x30>
add    %rcx,%rax
cmp    %rsi,%rax
jl     1150 <indexxd+0x50>
jmp    1130 <indexxd+0x30>
add    $0xffffffffffffffff,%rsi
mov    %rsi,%rax
ret
cmp    %rsi,%rax
jge    1183 <indexxd+0x83>
xchg   %ax,%ax
ucomisd (%rdi,%rax,8),%xmm0
jb     1183 <indexxd+0x83>
add    $0x1,%rax
cmp    %rax,%rsi
jne    1170 <indexxd+0x70>
mov    %rsi,%rax
add    $0xffffffffffffffff,%rax
ret

LLVM IR (-O0):
define i64 @indexxd(double %0, double* %1, i64 %2) {
%4 = alloca i64
%5 = alloca double
%6 = alloca double*
%7 = alloca i64
%8 = alloca i64
%9 = alloca i64
store double %0, double* %5
store double* %1, double** %6
store i64 %2, i64* %7
%10 = load double, double* %5
%11 = load double*, double** %6
%12 = getelementptr inbounds double, double* %11, i64 0
%13 = load double, double* %12
%14 = fcmp olt double %10, %13
br i1 %14, label %15, label %16
15: ; preds = %3
store i64 -1, i64* %4
br label %83
16: ; preds = %3
%17 = load double, double* %5
%18 = load double*, double** %6
%19 = load i64, i64* %7
%20 = sub nsw i64 %19, 1
%21 = getelementptr inbounds double, double* %18, i64 %20
%22 = load double, double* %21
%23 = fcmp oge double %17, %22
br i1 %23, label %24, label %27
24: ; preds = %16
%25 = load i64, i64* %7
%26 = sub nsw i64 %25, 1
store i64 %26, i64* %4
br label %83
27: ; preds = %16
store i64 0, i64* %8
%28 = load i64, i64* %7
%29 = icmp sgt i64 %28, 10
br i1 %29, label %30, label %62
30: ; preds = %27
%31 = load i64, i64* %7
%32 = ashr i64 %31, 1
store i64 %32, i64* %9
br label %33
33: ; preds = %55, %30
%34 = load i64, i64* %9
%35 = icmp sgt i64 %34, 5
br i1 %35, label %36, label %61
36: ; preds = %33
br label %37
37: ; preds = %51, %36
%38 = load i64, i64* %8
%39 = load i64, i64* %7
%40 = icmp slt i64 %38, %39
br i1 %40, label %41, label %48
41: ; preds = %37
%42 = load double, double* %5
%43 = load double*, double** %6
%44 = load i64, i64* %8
%45 = getelementptr inbounds double, double* %43, i64 %44
%46 = load double, double* %45
%47 = fcmp oge double %42, %46
br label %48
48: ; preds = %41, %37
%49 = phi i1 [ false, %37 ], [ %47, %41 ]
br i1 %49, label %50, label %55
50: ; preds = %48
br label %51
51: ; preds = %50
%52 = load i64, i64* %9
%53 = load i64, i64* %8
%54 = add nsw i64 %53, %52
store i64 %54, i64* %8
br label %37
55: ; preds = %48
%56 = load i64, i64* %9
%57 = load i64, i64* %8
%58 = sub nsw i64 %57, %56
store i64 %58, i64* %8
%59 = load i64, i64* %9
%60 = ashr i64 %59, 1
store i64 %60, i64* %9
br label %33
61: ; preds = %33
br label %62
62: ; preds = %61, %27
br label %63
63: ; preds = %77, %62
%64 = load i64, i64* %8
%65 = load i64, i64* %7
%66 = icmp slt i64 %64, %65
br i1 %66, label %67, label %74
67: ; preds = %63
%68 = load double, double* %5
%69 = load double*, double** %6
%70 = load i64, i64* %8
%71 = getelementptr inbounds double, double* %69, i64 %70
%72 = load double, double* %71
%73 = fcmp oge double %68, %72
br label %74
74: ; preds = %67, %63
%75 = phi i1 [ false, %63 ], [ %73, %67 ]
br i1 %75, label %76, label %80
76: ; preds = %74
br label %77
77: ; preds = %76
%78 = load i64, i64* %8
%79 = add nsw i64 %78, 1
store i64 %79, i64* %8
br label %63
80: ; preds = %74
%81 = load i64, i64* %8
%82 = sub nsw i64 %81, 1
store i64 %82, i64* %4
br label %83
83: ; preds = %80, %24, %15
%84 = load i64, i64* %4
ret i64 %84
}

LLVM IR (-O2):
define i64 @indexxd(double %0, double* nocapture %1, i64 %2) {
%4 = load double, double* %1
%5 = fcmp ogt double %4, %0
br i1 %5, label %44, label %6
6: ; preds = %3
%7 = add nsw i64 %2, -1
%8 = getelementptr inbounds double, double* %1, i64 %7
%9 = load double, double* %8
%10 = fcmp ugt double %9, %0
br i1 %10, label %11, label %44
11: ; preds = %6
%12 = icmp sgt i64 %2, 11
br i1 %12, label %13, label %30
13: ; preds = %11, %26
%14 = phi i64 [ %16, %26 ], [ %2, %11 ]
%15 = phi i64 [ %28, %26 ], [ 0, %11 ]
%16 = ashr i64 %14, 1
%17 = icmp slt i64 %15, %2
br i1 %17, label %18, label %26
18: ; preds = %13, %23
%19 = phi i64 [ %24, %23 ], [ %15, %13 ]
%20 = getelementptr inbounds double, double* %1, i64 %19
%21 = load double, double* %20
%22 = fcmp ugt double %21, %0
br i1 %22, label %26, label %23
23: ; preds = %18
%24 = add nsw i64 %19, %16
%25 = icmp slt i64 %24, %2
br i1 %25, label %18, label %26
26: ; preds = %18, %23, %13
%27 = phi i64 [ %15, %13 ], [ %24, %23 ], [ %19, %18 ]
%28 = sub nsw i64 %27, %16
%29 = icmp sgt i64 %14, 23
br i1 %29, label %13, label %30
30: ; preds = %26, %11
%31 = phi i64 [ 0, %11 ], [ %28, %26 ]
%32 = icmp slt i64 %31, %2
br i1 %32, label %33, label %41
33: ; preds = %30, %38
%34 = phi i64 [ %39, %38 ], [ %31, %30 ]
%35 = getelementptr inbounds double, double* %1, i64 %34
%36 = load double, double* %35
%37 = fcmp ugt double %36, %0
br i1 %37, label %41, label %38
38: ; preds = %33
%39 = add i64 %34, 1
%40 = icmp eq i64 %39, %2
br i1 %40, label %41, label %33
41: ; preds = %33, %38, %30
%42 = phi i64 [ %31, %30 ], [ %2, %38 ], [ %34, %33 ]
%43 = add nsw i64 %42, -1
br label %44
44: ; preds = %6, %3, %41
%45 = phi i64 [ %43, %41 ], [ -1, %3 ], [ %7, %6 ]
ret i64 %45
}