int ti_wcprice(int size, double const *const *inputs, double const *options,
               double *const *outputs) {
  const double *high = inputs[0];
  const double *low = inputs[1];
  const double *close = inputs[2];
  (void)options;
  double *output = outputs[0];
  int i;
  for (i = 0; i < size; ++i) {
    output[i] = (high[i] + low[i] + close[i] + close[i]) * 0.25;
  }
  return 0;
}


x86 assembly (clang, -O0):
<ti_wcprice>:
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    -0x10(%rbp),%rax
mov    0x10(%rax),%rax
mov    %rax,-0x38(%rbp)
mov    -0x20(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x40(%rbp)
movl   $0x0,-0x44(%rbp)
mov    -0x44(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    11af <ti_wcprice+0xaf>
mov    -0x28(%rbp),%rax
movslq -0x44(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x30(%rbp),%rax
movslq -0x44(%rbp),%rcx
addsd  (%rax,%rcx,8),%xmm0
mov    -0x38(%rbp),%rax
movslq -0x44(%rbp),%rcx
addsd  (%rax,%rcx,8),%xmm0
mov    -0x38(%rbp),%rax
movslq -0x44(%rbp),%rcx
addsd  (%rax,%rcx,8),%xmm0
movsd  0xe70(%rip),%xmm1
mulsd  %xmm1,%xmm0
mov    -0x40(%rbp),%rax
movslq -0x44(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x44(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x44(%rbp)
jmp    1148 <ti_wcprice+0x48>
xor    %eax,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<ti_wcprice>:
push   %rbp
push   %r14
push   %rbx
test   %edi,%edi
jle    129f <ti_wcprice+0x19f>
mov    (%rsi),%r10
mov    0x8(%rsi),%rdx
mov    0x10(%rsi),%rsi
mov    (%rcx),%rcx
mov    %edi,%r8d
cmp    $0x4,%edi
jae    1129 <ti_wcprice+0x29>
xor    %edi,%edi
jmp    1200 <ti_wcprice+0x100>
lea    (%rcx,%r8,8),%rdi
lea    (%r10,%r8,8),%rax
lea    (%rdx,%r8,8),%rbx
lea    (%rsi,%r8,8),%r9
cmp    %rax,%rcx
setb   %bpl
cmp    %rdi,%r10
setb   %r14b
cmp    %rbx,%rcx
setb   %al
cmp    %rdi,%rdx
setb   %r11b
cmp    %r9,%rcx
setb   %r9b
cmp    %rdi,%rsi
setb   %bl
xor    %edi,%edi
test   %r14b,%bpl
jne    1200 <ti_wcprice+0x100>
and    %r11b,%al
jne    1200 <ti_wcprice+0x100>
and    %bl,%r9b
jne    1200 <ti_wcprice+0x100>
mov    %r8d,%edi
and    $0xfffffffc,%edi
lea    0x0(,%r8,8),%r9
and    $0xffffffffffffffe0,%r9
xor    %eax,%eax
movapd 0xe66(%rip),%xmm0
nopw   0x0(%rax,%rax,1)
movupd (%r10,%rax,1),%xmm1
movupd 0x10(%r10,%rax,1),%xmm2
movupd (%rdx,%rax,1),%xmm3
addpd  %xmm1,%xmm3
movupd 0x10(%rdx,%rax,1),%xmm1
addpd  %xmm2,%xmm1
movupd (%rsi,%rax,1),%xmm2
movupd 0x10(%rsi,%rax,1),%xmm4
addpd  %xmm2,%xmm3
addpd  %xmm4,%xmm1
addpd  %xmm2,%xmm3
addpd  %xmm4,%xmm1
mulpd  %xmm0,%xmm3
mulpd  %xmm0,%xmm1
movupd %xmm3,(%rcx,%rax,1)
movupd %xmm1,0x10(%rcx,%rax,1)
add    $0x20,%rax
cmp    %rax,%r9
jne    11a0 <ti_wcprice+0xa0>
cmp    %r8,%rdi
je     129f <ti_wcprice+0x19f>
mov    %rdi,%rax
not    %rax
test   $0x1,%r8b
je     1235 <ti_wcprice+0x135>
movsd  (%r10,%rdi,8),%xmm0
addsd  (%rdx,%rdi,8),%xmm0
movsd  (%rsi,%rdi,8),%xmm1
addsd  %xmm1,%xmm0
addsd  %xmm1,%xmm0
mulsd  0xde4(%rip),%xmm0
movsd  %xmm0,(%rcx,%rdi,8)
or     $0x1,%rdi
add    %r8,%rax
je     129f <ti_wcprice+0x19f>
movsd  0xdce(%rip),%xmm0
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movsd  (%r10,%rdi,8),%xmm1
addsd  (%rdx,%rdi,8),%xmm1
movsd  (%rsi,%rdi,8),%xmm2
addsd  %xmm2,%xmm1
addsd  %xmm2,%xmm1
mulsd  %xmm0,%xmm1
movsd  %xmm1,(%rcx,%rdi,8)
movsd  0x8(%r10,%rdi,8),%xmm1
addsd  0x8(%rdx,%rdi,8),%xmm1
movsd  0x8(%rsi,%rdi,8),%xmm2
addsd  %xmm2,%xmm1
addsd  %xmm2,%xmm1
mulsd  %xmm0,%xmm1
movsd  %xmm1,0x8(%rcx,%rdi,8)
add    $0x2,%rdi
cmp    %rdi,%r8
jne    1250 <ti_wcprice+0x150>
xor    %eax,%eax
pop    %rbx
pop    %r14
pop    %rbp
ret

LLVM IR (-O0):
define i32 @ti_wcprice(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 i32
store i32 %0, i32* %5
store double** %1, double*** %6
store double* %2, double** %7
store double** %3, double*** %8
%14 = load double**, double*** %6
%15 = getelementptr inbounds double*, double** %14, i64 0
%16 = load double*, double** %15
store double* %16, double** %9
%17 = load double**, double*** %6
%18 = getelementptr inbounds double*, double** %17, i64 1
%19 = load double*, double** %18
store double* %19, double** %10
%20 = load double**, double*** %6
%21 = getelementptr inbounds double*, double** %20, i64 2
%22 = load double*, double** %21
store double* %22, double** %11
%23 = load double*, double** %7
%24 = load double**, double*** %8
%25 = getelementptr inbounds double*, double** %24, i64 0
%26 = load double*, double** %25
store double* %26, double** %12
store i32 0, i32* %13
br label %27
27: ; preds = %60, %4
%28 = load i32, i32* %13
%29 = load i32, i32* %5
%30 = icmp slt i32 %28, %29
br i1 %30, label %31, label %63
31: ; preds = %27
%32 = load double*, double** %9
%33 = load i32, i32* %13
%34 = sext i32 %33 to i64
%35 = getelementptr inbounds double, double* %32, i64 %34
%36 = load double, double* %35
%37 = load double*, double** %10
%38 = load i32, i32* %13
%39 = sext i32 %38 to i64
%40 = getelementptr inbounds double, double* %37, i64 %39
%41 = load double, double* %40
%42 = fadd double %36, %41
%43 = load double*, double** %11
%44 = load i32, i32* %13
%45 = sext i32 %44 to i64
%46 = getelementptr inbounds double, double* %43, i64 %45
%47 = load double, double* %46
%48 = fadd double %42, %47
%49 = load double*, double** %11
%50 = load i32, i32* %13
%51 = sext i32 %50 to i64
%52 = getelementptr inbounds double, double* %49, i64 %51
%53 = load double, double* %52
%54 = fadd double %48, %53
%55 = fmul double %54, 2.500000e-01
%56 = load double*, double** %12
%57 = load i32, i32* %13
%58 = sext i32 %57 to i64
%59 = getelementptr inbounds double, double* %56, i64 %58
store double %55, double* %59
br label %60
60: ; preds = %31
%61 = load i32, i32* %13
%62 = add nsw i32 %61, 1
store i32 %62, i32* %13
br label %27
63: ; preds = %27
ret i32 0
}

LLVM IR (-O2):
define i32 @ti_wcprice(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 = getelementptr inbounds double*, double** %1, i64 2
%9 = load double*, double** %8
%10 = load double*, double** %3
%11 = icmp sgt i32 %0, 0
br i1 %11, label %12, label %118
12: ; preds = %4
%13 = zext i32 %0 to i64
%14 = icmp ult i32 %0, 4
br i1 %14, label %69, label %15
15: ; preds = %12
%16 = getelementptr double, double* %10, i64 %13
%17 = getelementptr double, double* %5, i64 %13
%18 = getelementptr double, double* %7, i64 %13
%19 = getelementptr double, double* %9, i64 %13
%20 = icmp ult double* %10, %17
%21 = icmp ult double* %5, %16
%22 = and i1 %20, %21
%23 = icmp ult double* %10, %18
%24 = icmp ult double* %7, %16
%25 = and i1 %23, %24
%26 = or i1 %22, %25
%27 = icmp ult double* %10, %19
%28 = icmp ult double* %9, %16
%29 = and i1 %27, %28
%30 = or i1 %26, %29
br i1 %30, label %69, label %31
31: ; preds = %15
%32 = and i64 %13, 4294967292
br label %33
33: ; preds = %33, %31
%34 = phi i64 [ 0, %31 ], [ %65, %33 ]
%35 = getelementptr inbounds double, double* %5, i64 %34
%36 = bitcast double* %35 to <2 x double>*
%37 = load <2 x double>, <2 x double>* %36
%38 = getelementptr inbounds double, double* %35, i64 2
%39 = bitcast double* %38 to <2 x double>*
%40 = load <2 x double>, <2 x double>* %39
%41 = getelementptr inbounds double, double* %7, i64 %34
%42 = bitcast double* %41 to <2 x double>*
%43 = load <2 x double>, <2 x double>* %42
%44 = getelementptr inbounds double, double* %41, i64 2
%45 = bitcast double* %44 to <2 x double>*
%46 = load <2 x double>, <2 x double>* %45
%47 = fadd <2 x double> %37, %43
%48 = fadd <2 x double> %40, %46
%49 = getelementptr inbounds double, double* %9, i64 %34
%50 = bitcast double* %49 to <2 x double>*
%51 = load <2 x double>, <2 x double>* %50
%52 = getelementptr inbounds double, double* %49, i64 2
%53 = bitcast double* %52 to <2 x double>*
%54 = load <2 x double>, <2 x double>* %53
%55 = fadd <2 x double> %47, %51
%56 = fadd <2 x double> %48, %54
%57 = fadd <2 x double> %51, %55
%58 = fadd <2 x double> %54, %56
%59 = fmul <2 x double> %57, <double 2.500000e-01, double 2.500000e-01>
%60 = fmul <2 x double> %58, <double 2.500000e-01, double 2.500000e-01>
%61 = getelementptr inbounds double, double* %10, i64 %34
%62 = bitcast double* %61 to <2 x double>*
store <2 x double> %59, <2 x double>* %62
%63 = getelementptr inbounds double, double* %61, i64 2
%64 = bitcast double* %63 to <2 x double>*
store <2 x double> %60, <2 x double>* %64
%65 = add nuw i64 %34, 4
%66 = icmp eq i64 %65, %32
br i1 %66, label %67, label %33
67: ; preds = %33
%68 = icmp eq i64 %32, %13
br i1 %68, label %118, label %69
69: ; preds = %15, %12, %67
%70 = phi i64 [ 0, %15 ], [ 0, %12 ], [ %32, %67 ]
%71 = xor i64 %70, -1
%72 = and i64 %13, 1
%73 = icmp eq i64 %72, 0
br i1 %73, label %87, label %74
74: ; preds = %69
%75 = getelementptr inbounds double, double* %5, i64 %70
%76 = load double, double* %75
%77 = getelementptr inbounds double, double* %7, i64 %70
%78 = load double, double* %77
%79 = fadd double %76, %78
%80 = getelementptr inbounds double, double* %9, i64 %70
%81 = load double, double* %80
%82 = fadd double %79, %81
%83 = fadd double %81, %82
%84 = fmul double %83, 2.500000e-01
%85 = getelementptr inbounds double, double* %10, i64 %70
store double %84, double* %85
%86 = or i64 %70, 1
br label %87
87: ; preds = %74, %69
%88 = phi i64 [ %70, %69 ], [ %86, %74 ]
%89 = sub nsw i64 0, %13
%90 = icmp eq i64 %71, %89
br i1 %90, label %118, label %91
91: ; preds = %87, %91
%92 = phi i64 [ %116, %91 ], [ %88, %87 ]
%93 = getelementptr inbounds double, double* %5, i64 %92
%94 = load double, double* %93
%95 = getelementptr inbounds double, double* %7, i64 %92
%96 = load double, double* %95
%97 = fadd double %94, %96
%98 = getelementptr inbounds double, double* %9, i64 %92
%99 = load double, double* %98
%100 = fadd double %97, %99
%101 = fadd double %99, %100
%102 = fmul double %101, 2.500000e-01
%103 = getelementptr inbounds double, double* %10, i64 %92
store double %102, double* %103
%104 = add nuw nsw i64 %92, 1
%105 = getelementptr inbounds double, double* %5, i64 %104
%106 = load double, double* %105
%107 = getelementptr inbounds double, double* %7, i64 %104
%108 = load double, double* %107
%109 = fadd double %106, %108
%110 = getelementptr inbounds double, double* %9, i64 %104
%111 = load double, double* %110
%112 = fadd double %109, %111
%113 = fadd double %111, %112
%114 = fmul double %113, 2.500000e-01
%115 = getelementptr inbounds double, double* %10, i64 %104
store double %114, double* %115
%116 = add nuw nsw i64 %92, 2
%117 = icmp eq i64 %116, %13
br i1 %117, label %118, label %91
118: ; preds = %87, %91, %67, %4
ret i32 0
}