int lingot_signal_is_peak(const double *signal, int index,
                          unsigned short peak_half_width) {
  int j;
  for (j = 0; j < peak_half_width; j++) {
    if ((signal[index + j] < signal[index + j + 1]) ||
        (signal[index - j] < signal[index - j - 1])) {
      return 0;
    }
  }
  return 1;
}


x86 assembly (clang, -O0):
<lingot_signal_is_peak>:
push   %rbp
mov    %rsp,%rbp
mov    %dx,%ax
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
mov    %ax,-0x16(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
movzwl -0x16(%rbp),%ecx
cmp    %ecx,%eax
jge    11a9 <lingot_signal_is_peak+0xa9>
mov    -0x10(%rbp),%rax
mov    -0x14(%rbp),%ecx
add    -0x1c(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm1
mov    -0x10(%rbp),%rax
mov    -0x14(%rbp),%ecx
add    -0x1c(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd %xmm1,%xmm0
ja     118a <lingot_signal_is_peak+0x8a>
mov    -0x10(%rbp),%rax
mov    -0x14(%rbp),%ecx
sub    -0x1c(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm1
mov    -0x10(%rbp),%rax
mov    -0x14(%rbp),%ecx
sub    -0x1c(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd %xmm1,%xmm0
jbe    1196 <lingot_signal_is_peak+0x96>
movl   $0x0,-0x4(%rbp)
jmp    11b0 <lingot_signal_is_peak+0xb0>
jmp    119b <lingot_signal_is_peak+0x9b>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1119 <lingot_signal_is_peak+0x19>
movl   $0x1,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<lingot_signal_is_peak>:
mov    $0x1,%eax
test   %edx,%edx
je     1145 <lingot_signal_is_peak+0x45>
movslq %esi,%rsi
movzwl %dx,%ecx
lea    (%rdi,%rsi,8),%rdx
xor    %esi,%esi
mov    %rdx,%rdi
nopl   0x0(%rax,%rax,1)
movsd  0x8(%rdx,%rsi,8),%xmm0
ucomisd (%rdx,%rsi,8),%xmm0
ja     1146 <lingot_signal_is_peak+0x46>
movsd  -0x8(%rdi),%xmm0
ucomisd (%rdi),%xmm0
ja     1146 <lingot_signal_is_peak+0x46>
add    $0x1,%rsi
add    $0xfffffffffffffff8,%rdi
cmp    %rsi,%rcx
jne    1120 <lingot_signal_is_peak+0x20>
ret
xor    %eax,%eax
ret

LLVM IR (-O0):
define i32 @lingot_signal_is_peak(double* %0, i32 %1, i16 zeroext %2) {
%4 = alloca i32
%5 = alloca double*
%6 = alloca i32
%7 = alloca i16
%8 = alloca i32
store double* %0, double** %5
store i32 %1, i32* %6
store i16 %2, i16* %7
store i32 0, i32* %8
br label %9
9: ; preds = %50, %3
%10 = load i32, i32* %8
%11 = load i16, i16* %7
%12 = zext i16 %11 to i32
%13 = icmp slt i32 %10, %12
br i1 %13, label %14, label %53
14: ; preds = %9
%15 = load double*, double** %5
%16 = load i32, i32* %6
%17 = load i32, i32* %8
%18 = add nsw i32 %16, %17
%19 = sext i32 %18 to i64
%20 = getelementptr inbounds double, double* %15, i64 %19
%21 = load double, double* %20
%22 = load double*, double** %5
%23 = load i32, i32* %6
%24 = load i32, i32* %8
%25 = add nsw i32 %23, %24
%26 = add nsw i32 %25, 1
%27 = sext i32 %26 to i64
%28 = getelementptr inbounds double, double* %22, i64 %27
%29 = load double, double* %28
%30 = fcmp olt double %21, %29
br i1 %30, label %48, label %31
31: ; preds = %14
%32 = load double*, double** %5
%33 = load i32, i32* %6
%34 = load i32, i32* %8
%35 = sub nsw i32 %33, %34
%36 = sext i32 %35 to i64
%37 = getelementptr inbounds double, double* %32, i64 %36
%38 = load double, double* %37
%39 = load double*, double** %5
%40 = load i32, i32* %6
%41 = load i32, i32* %8
%42 = sub nsw i32 %40, %41
%43 = sub nsw i32 %42, 1
%44 = sext i32 %43 to i64
%45 = getelementptr inbounds double, double* %39, i64 %44
%46 = load double, double* %45
%47 = fcmp olt double %38, %46
br i1 %47, label %48, label %49
48: ; preds = %31, %14
store i32 0, i32* %4
br label %54
49: ; preds = %31
br label %50
50: ; preds = %49
%51 = load i32, i32* %8
%52 = add nsw i32 %51, 1
store i32 %52, i32* %8
br label %9
53: ; preds = %9
store i32 1, i32* %4
br label %54
54: ; preds = %53, %48
%55 = load i32, i32* %4
ret i32 %55
}

LLVM IR (-O2):
define i32 @lingot_signal_is_peak(double* nocapture %0, i32 %1, i16 zeroext %2) {
%4 = icmp eq i16 %2, 0
br i1 %4, label %28, label %5
5: ; preds = %3
%6 = sext i32 %1 to i64
%7 = zext i16 %2 to i64
br label %10
8: ; preds = %19
%9 = icmp eq i64 %27, %7
br i1 %9, label %28, label %10
10: ; preds = %5, %8
%11 = phi i64 [ 0, %5 ], [ %27, %8 ]
%12 = add nsw i64 %11, %6
%13 = getelementptr inbounds double, double* %0, i64 %12
%14 = load double, double* %13
%15 = add nsw i64 %12, 1
%16 = getelementptr inbounds double, double* %0, i64 %15
%17 = load double, double* %16
%18 = fcmp olt double %14, %17
br i1 %18, label %28, label %19
19: ; preds = %10
%20 = sub nsw i64 %6, %11
%21 = getelementptr inbounds double, double* %0, i64 %20
%22 = load double, double* %21
%23 = add nsw i64 %20, -1
%24 = getelementptr inbounds double, double* %0, i64 %23
%25 = load double, double* %24
%26 = fcmp olt double %22, %25
%27 = add nuw nsw i64 %11, 1
br i1 %26, label %28, label %8
28: ; preds = %19, %10, %8, %3
%29 = phi i32 [ 1, %3 ], [ 1, %8 ], [ 0, %10 ], [ 0, %19 ]
ret i32 %29
}