int ti_crossany(int size, double const *const *inputs, double const *options,
                double *const *outputs) {
  const double *a = inputs[0];
  const double *b = inputs[1];
  (void)options;
  double *output = outputs[0];
  int i;
  for (i = 1; i < size; ++i) {
    *output++ = (a[i] > b[i] && a[i - 1] <= b[i - 1]) ||
                (a[i] < b[i] && a[i - 1] >= b[i - 1]);
  }
  return 0;
}


x86 assembly (clang, -O0):
<ti_crossany>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    -0x10(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x28(%rbp)
mov    -0x10(%rbp),%rax
mov    0x8(%rax),%rax
mov    %rax,-0x30(%rbp)
mov    -0x20(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x38(%rbp)
movl   $0x1,-0x3c(%rbp)
mov    -0x3c(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    1221 <ti_crossany+0x121>
mov    -0x28(%rbp),%rax
movslq -0x3c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x30(%rbp),%rax
movslq -0x3c(%rbp),%rcx
ucomisd (%rax,%rcx,8),%xmm0
jbe    119b <ti_crossany+0x9b>
mov    -0x28(%rbp),%rax
mov    -0x3c(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm1
mov    -0x30(%rbp),%rax
mov    -0x3c(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    $0x1,%al
ucomisd %xmm1,%xmm0
mov    %al,-0x3d(%rbp)
jae    11f4 <ti_crossany+0xf4>
mov    -0x28(%rbp),%rax
movslq -0x3c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
mov    -0x30(%rbp),%rax
movslq -0x3c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
xor    %eax,%eax
ucomisd %xmm1,%xmm0
mov    %al,-0x3e(%rbp)
jbe    11ee <ti_crossany+0xee>
mov    -0x28(%rbp),%rax
mov    -0x3c(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x30(%rbp),%rax
mov    -0x3c(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
ucomisd (%rax,%rcx,8),%xmm0
setae  %al
mov    %al,-0x3e(%rbp)
mov    -0x3e(%rbp),%al
mov    %al,-0x3d(%rbp)
mov    -0x3d(%rbp),%al
and    $0x1,%al
movzbl %al,%eax
cvtsi2sd %eax,%xmm0
mov    -0x38(%rbp),%rax
mov    %rax,%rcx
add    $0x8,%rcx
mov    %rcx,-0x38(%rbp)
movsd  %xmm0,(%rax)
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
jmp    113c <ti_crossany+0x3c>
xor    %eax,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<ti_crossany>:
cmp    $0x2,%edi
jl     1170 <ti_crossany+0x70>
mov    (%rsi),%rax
mov    0x8(%rsi),%rdx
mov    (%rcx),%r8
mov    %edi,%esi
add    $0xffffffffffffffff,%rsi
xor    %edi,%edi
jmp    1146 <ti_crossany+0x46>
nopl   0x0(%rax)
movsd  (%rax,%rdi,8),%xmm0
ucomisd (%rdx,%rdi,8),%xmm0
setae  %cl
movzbl %cl,%ecx
xorps  %xmm0,%xmm0
cvtsi2sd %ecx,%xmm0
movsd  %xmm0,(%r8,%rdi,8)
add    $0x1,%rdi
cmp    %rdi,%rsi
je     1170 <ti_crossany+0x70>
movsd  0x8(%rax,%rdi,8),%xmm0
movsd  0x8(%rdx,%rdi,8),%xmm1
ucomisd %xmm1,%xmm0
jbe    1166 <ti_crossany+0x66>
movsd  (%rdx,%rdi,8),%xmm2
mov    $0x1,%cl
ucomisd (%rax,%rdi,8),%xmm2
jae    112d <ti_crossany+0x2d>
ucomisd %xmm0,%xmm1
ja     1120 <ti_crossany+0x20>
xor    %ecx,%ecx
jmp    112d <ti_crossany+0x2d>
xor    %eax,%eax
ret

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

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