int BinarySearch(double x, double wl[], int n) {
  int low, high;
  int k;
  if (x < wl[0])
    return (-1);
  if (x >= wl[n - 1])
    return (n);
  low = 0;
  high = n - 1;
  while (high - low > 1) {
    k = (low + high) / 2;
    if (x < wl[k]) {
      high = k;
    } else if (x > wl[k + 1]) {
      low = k;
    } else {
      high = k;
      low = k;
    }
  }
  if (low < high) {
    if (wl[high] <= x)
      return (high);
    else
      return (low);
  } else {
    return (low);
  }
}


x86 assembly (clang, -O0):
<BinarySearch>:
push   %rbp
mov    %rsp,%rbp
movsd  %xmm0,-0x10(%rbp)
mov    %rdi,-0x18(%rbp)
mov    %esi,-0x1c(%rbp)
movsd  -0x10(%rbp),%xmm1
mov    -0x18(%rbp),%rax
movsd  (%rax),%xmm0
ucomisd %xmm1,%xmm0
jbe    1133 <BinarySearch+0x33>
movl   $0xffffffff,-0x4(%rbp)
jmp    1234 <BinarySearch+0x134>
movsd  -0x10(%rbp),%xmm0
mov    -0x18(%rbp),%rax
mov    -0x1c(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
ucomisd (%rax,%rcx,8),%xmm0
jb     115b <BinarySearch+0x5b>
mov    -0x1c(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    1234 <BinarySearch+0x134>
movl   $0x0,-0x20(%rbp)
mov    -0x1c(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x24(%rbp)
mov    -0x24(%rbp),%eax
sub    -0x20(%rbp),%eax
cmp    $0x1,%eax
jle    11f0 <BinarySearch+0xf0>
mov    -0x20(%rbp),%eax
add    -0x24(%rbp),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,-0x28(%rbp)
movsd  -0x10(%rbp),%xmm1
mov    -0x18(%rbp),%rax
movslq -0x28(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd %xmm1,%xmm0
jbe    11b2 <BinarySearch+0xb2>
mov    -0x28(%rbp),%eax
mov    %eax,-0x24(%rbp)
jmp    11eb <BinarySearch+0xeb>
movsd  -0x10(%rbp),%xmm0
mov    -0x18(%rbp),%rax
mov    -0x28(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
ucomisd (%rax,%rcx,8),%xmm0
jbe    11da <BinarySearch+0xda>
mov    -0x28(%rbp),%eax
mov    %eax,-0x20(%rbp)
jmp    11e6 <BinarySearch+0xe6>
mov    -0x28(%rbp),%eax
mov    %eax,-0x24(%rbp)
mov    -0x28(%rbp),%eax
mov    %eax,-0x20(%rbp)
jmp    11eb <BinarySearch+0xeb>
jmp    116b <BinarySearch+0x6b>
mov    -0x20(%rbp),%eax
cmp    -0x24(%rbp),%eax
jge    122e <BinarySearch+0x12e>
mov    -0x18(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
movsd  -0x10(%rbp),%xmm0
ucomisd %xmm1,%xmm0
jb     1223 <BinarySearch+0x123>
mov    -0x24(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    1234 <BinarySearch+0x134>
mov    -0x20(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    1234 <BinarySearch+0x134>
mov    -0x20(%rbp),%eax
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<BinarySearch>:
movsd  (%rdi),%xmm1
mov    $0xffffffff,%eax
ucomisd %xmm0,%xmm1
ja     1179 <BinarySearch+0x79>
movslq %esi,%rax
ucomisd -0x8(%rdi,%rax,8),%xmm0
jae    1165 <BinarySearch+0x65>
lea    -0x1(%rsi),%edx
xor    %eax,%eax
cmp    $0x3,%esi
jl     1168 <BinarySearch+0x68>
xor    %eax,%eax
jmp    113f <BinarySearch+0x3f>
nopl   0x0(%rax,%rax,1)
mov    %ecx,%eax
mov    %edx,%ecx
mov    %ecx,%esi
sub    %eax,%esi
mov    %ecx,%edx
cmp    $0x1,%esi
jle    116a <BinarySearch+0x6a>
lea    (%rdx,%rax,1),%esi
mov    %esi,%ecx
shr    $0x1f,%ecx
add    %esi,%ecx
sar    %ecx
movslq %ecx,%rsi
movsd  (%rdi,%rsi,8),%xmm1
ucomisd %xmm0,%xmm1
ja     1134 <BinarySearch+0x34>
ucomisd 0x8(%rdi,%rsi,8),%xmm0
ja     1130 <BinarySearch+0x30>
mov    %ecx,%edx
jmp    1130 <BinarySearch+0x30>
mov    %esi,%eax
ret
mov    %edx,%ecx
cmp    %eax,%ecx
jle    1179 <BinarySearch+0x79>
movslq %ecx,%rdx
ucomisd (%rdi,%rdx,8),%xmm0
cmovae %ecx,%eax
ret

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

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