int ti_obv(int size, double const *const *inputs, double const *options,
           double *const *outputs) {
  const double *close = inputs[0];
  const double *volume = inputs[1];
  (void)options;
  double *output = outputs[0];
  double sum = 0;
  *output++ = sum;
  double prev = close[0];
  int i;
  for (i = 1; i < size; ++i) {
    if (close[i] > prev) {
      sum += volume[i];
    } else if (close[i] < prev) {
      sum -= volume[i];
    } else {
    }
    prev = close[i];
    *output++ = sum;
  }
  return 0;
}


x86 assembly (clang, -O0):
<ti_obv>:
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)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  -0x40(%rbp),%xmm0
mov    -0x38(%rbp),%rax
mov    %rax,%rcx
add    $0x8,%rcx
mov    %rcx,-0x38(%rbp)
movsd  %xmm0,(%rax)
mov    -0x28(%rbp),%rax
movsd  (%rax),%xmm0
movsd  %xmm0,-0x48(%rbp)
movl   $0x1,-0x4c(%rbp)
mov    -0x4c(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    1227 <ti_obv+0x127>
mov    -0x28(%rbp),%rax
movslq -0x4c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd -0x48(%rbp),%xmm0
jbe    11a9 <ti_obv+0xa9>
mov    -0x30(%rbp),%rax
movslq -0x4c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
addsd  -0x40(%rbp),%xmm0
movsd  %xmm0,-0x40(%rbp)
jmp    11ef <ti_obv+0xef>
mov    -0x28(%rbp),%rax
movslq -0x4c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
movsd  -0x48(%rbp),%xmm0
ucomisd %xmm1,%xmm0
jbe    11e5 <ti_obv+0xe5>
mov    -0x30(%rbp),%rax
movslq -0x4c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
movsd  -0x40(%rbp),%xmm0
subsd  %xmm1,%xmm0
movsd  %xmm0,-0x40(%rbp)
jmp    11ea <ti_obv+0xea>
jmp    11ea <ti_obv+0xea>
jmp    11ef <ti_obv+0xef>
mov    -0x28(%rbp),%rax
movslq -0x4c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x48(%rbp)
movsd  -0x40(%rbp),%xmm0
mov    -0x38(%rbp),%rax
mov    %rax,%rcx
add    $0x8,%rcx
mov    %rcx,-0x38(%rbp)
movsd  %xmm0,(%rax)
mov    -0x4c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x4c(%rbp)
jmp    1169 <ti_obv+0x69>
xor    %eax,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<ti_obv>:
mov    (%rsi),%rdx
mov    0x8(%rsi),%r9
mov    (%rcx),%rax
movq   $0x0,(%rax)
cmp    $0x2,%edi
jl     11fd <ti_obv+0xfd>
movsd  (%rdx),%xmm1
mov    %edi,%r8d
add    $0xffffffffffffffff,%r8
cmp    $0x2,%edi
jne    115a <ti_obv+0x5a>
xorpd  %xmm0,%xmm0
mov    $0x1,%esi
mov    %rax,%rcx
test   $0x1,%r8b
je     11fd <ti_obv+0xfd>
movsd  (%rdx,%rsi,8),%xmm2
ucomisd %xmm1,%xmm2
jbe    11ec <ti_obv+0xec>
addsd  (%r9,%rsi,8),%xmm0
jmp    11f8 <ti_obv+0xf8>
mov    %r8,%r10
and    $0xfffffffffffffffe,%r10
neg    %r10
xorpd  %xmm0,%xmm0
mov    $0x1,%esi
mov    %rax,%rcx
jmp    11a3 <ti_obv+0xa3>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
addsd  0x8(%r9,%rsi,8),%xmm0
add    $0x10,%rcx
movsd  %xmm0,0x8(%rax,%rsi,8)
lea    (%r10,%rsi,1),%rdi
add    $0x2,%rdi
add    $0x2,%rsi
cmp    $0x1,%rdi
je     1136 <ti_obv+0x36>
movsd  (%rdx,%rsi,8),%xmm2
ucomisd %xmm1,%xmm2
jbe    11c0 <ti_obv+0xc0>
addsd  (%r9,%rsi,8),%xmm0
jmp    11cc <ti_obv+0xcc>
cs nopw 0x0(%rax,%rax,1)
ucomisd %xmm2,%xmm1
jbe    11cc <ti_obv+0xcc>
subsd  (%r9,%rsi,8),%xmm0
movsd  %xmm0,(%rax,%rsi,8)
movsd  0x8(%rdx,%rsi,8),%xmm1
ucomisd %xmm2,%xmm1
ja     1180 <ti_obv+0x80>
ucomisd %xmm1,%xmm2
jbe    1187 <ti_obv+0x87>
subsd  0x8(%r9,%rsi,8),%xmm0
jmp    1187 <ti_obv+0x87>
ucomisd %xmm2,%xmm1
jbe    11f8 <ti_obv+0xf8>
subsd  (%r9,%rsi,8),%xmm0
movsd  %xmm0,0x8(%rcx)
xor    %eax,%eax
ret

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

LLVM IR (-O2):
define i32 @ti_obv(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 = load double*, double** %3
store double 0.000000e+00, double* %8
%9 = icmp sgt i32 %0, 1
br i1 %9, label %10, label %83
10: ; preds = %4
%11 = load double, double* %5
%12 = zext i32 %0 to i64
%13 = add nsw i64 %12, -1
%14 = and i64 %13, 1
%15 = icmp eq i32 %0, 2
br i1 %15, label %60, label %16
16: ; preds = %10
%17 = and i64 %13, -2
br label %18
18: ; preds = %55, %16
%19 = phi i64 [ 1, %16 ], [ %57, %55 ]
%20 = phi double* [ %8, %16 ], [ %41, %55 ]
%21 = phi double [ %11, %16 ], [ %43, %55 ]
%22 = phi double [ 0.000000e+00, %16 ], [ %56, %55 ]
%23 = phi i64 [ 0, %16 ], [ %58, %55 ]
%24 = getelementptr inbounds double, double* %20, i64 1
%25 = getelementptr inbounds double, double* %5, i64 %19
%26 = load double, double* %25
%27 = fcmp ogt double %26, %21
br i1 %27, label %28, label %32
28: ; preds = %18
%29 = getelementptr inbounds double, double* %7, i64 %19
%30 = load double, double* %29
%31 = fadd double %22, %30
br label %38
32: ; preds = %18
%33 = fcmp olt double %26, %21
br i1 %33, label %34, label %38
34: ; preds = %32
%35 = getelementptr inbounds double, double* %7, i64 %19
%36 = load double, double* %35
%37 = fsub double %22, %36
br label %38
38: ; preds = %34, %32, %28
%39 = phi double [ %31, %28 ], [ %37, %34 ], [ %22, %32 ]
store double %39, double* %24
%40 = add nuw nsw i64 %19, 1
%41 = getelementptr inbounds double, double* %20, i64 2
%42 = getelementptr inbounds double, double* %5, i64 %40
%43 = load double, double* %42
%44 = fcmp ogt double %43, %26
br i1 %44, label %51, label %45
45: ; preds = %38
%46 = fcmp olt double %43, %26
br i1 %46, label %47, label %55
47: ; preds = %45
%48 = getelementptr inbounds double, double* %7, i64 %40
%49 = load double, double* %48
%50 = fsub double %39, %49
br label %55
51: ; preds = %38
%52 = getelementptr inbounds double, double* %7, i64 %40
%53 = load double, double* %52
%54 = fadd double %39, %53
br label %55
55: ; preds = %51, %47, %45
%56 = phi double [ %54, %51 ], [ %50, %47 ], [ %39, %45 ]
store double %56, double* %41
%57 = add nuw nsw i64 %19, 2
%58 = add i64 %23, 2
%59 = icmp eq i64 %58, %17
br i1 %59, label %60, label %18
60: ; preds = %55, %10
%61 = phi i64 [ 1, %10 ], [ %57, %55 ]
%62 = phi double* [ %8, %10 ], [ %41, %55 ]
%63 = phi double [ %11, %10 ], [ %43, %55 ]
%64 = phi double [ 0.000000e+00, %10 ], [ %56, %55 ]
%65 = icmp eq i64 %14, 0
br i1 %65, label %83, label %66
66: ; preds = %60
%67 = getelementptr inbounds double, double* %62, i64 1
%68 = getelementptr inbounds double, double* %5, i64 %61
%69 = load double, double* %68
%70 = fcmp ogt double %69, %63
br i1 %70, label %77, label %71
71: ; preds = %66
%72 = fcmp olt double %69, %63
br i1 %72, label %73, label %81
73: ; preds = %71
%74 = getelementptr inbounds double, double* %7, i64 %61
%75 = load double, double* %74
%76 = fsub double %64, %75
br label %81
77: ; preds = %66
%78 = getelementptr inbounds double, double* %7, i64 %61
%79 = load double, double* %78
%80 = fadd double %64, %79
br label %81
81: ; preds = %77, %73, %71
%82 = phi double [ %80, %77 ], [ %76, %73 ], [ %64, %71 ]
store double %82, double* %67
br label %83
83: ; preds = %81, %60, %4
ret i32 0
}