void subtract_mean(double *x, unsigned int data_length) {
  int i;
  double sum, *dummy_ptr;
  sum = 0.0;
  dummy_ptr = x;
  for (i = 0; i < data_length; i++) {
    sum += *dummy_ptr++;
  }
  dummy_ptr = x;
  sum = sum / data_length;
  for (i = 0; i < data_length; i++) {
    *dummy_ptr++ -= sum;
  }
}


x86 assembly (clang, -O0):
<subtract_mean>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x18(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,-0x20(%rbp)
movl   $0x0,-0x10(%rbp)
mov    -0x10(%rbp),%eax
cmp    -0xc(%rbp),%eax
jae    1159 <subtract_mean+0x59>
mov    -0x20(%rbp),%rax
mov    %rax,%rcx
add    $0x8,%rcx
mov    %rcx,-0x20(%rbp)
movsd  (%rax),%xmm0
addsd  -0x18(%rbp),%xmm0
movsd  %xmm0,-0x18(%rbp)
mov    -0x10(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x10(%rbp)
jmp    1122 <subtract_mean+0x22>
mov    -0x8(%rbp),%rax
mov    %rax,-0x20(%rbp)
movsd  -0x18(%rbp),%xmm0
mov    -0xc(%rbp),%eax
cvtsi2sd %rax,%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x18(%rbp)
movl   $0x0,-0x10(%rbp)
mov    -0x10(%rbp),%eax
cmp    -0xc(%rbp),%eax
jae    11b8 <subtract_mean+0xb8>
movsd  -0x18(%rbp),%xmm1
mov    -0x20(%rbp),%rax
mov    %rax,%rcx
add    $0x8,%rcx
mov    %rcx,-0x20(%rbp)
movsd  (%rax),%xmm0
subsd  %xmm1,%xmm0
movsd  %xmm0,(%rax)
mov    -0x10(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x10(%rbp)
jmp    117e <subtract_mean+0x7e>
pop    %rbp
ret

x86 assembly (clang, -O2):
<subtract_mean>:
test   %esi,%esi
je     1276 <subtract_mean+0x176>
lea    -0x1(%rsi),%r8d
cmp    $0x7,%r8d
jae    111b <subtract_mean+0x1b>
xorpd  %xmm0,%xmm0
mov    %rdi,%rcx
jmp    1160 <subtract_mean+0x60>
mov    %esi,%eax
and    $0xfffffff8,%eax
xorpd  %xmm0,%xmm0
mov    %rdi,%rcx
nopw   0x0(%rax,%rax,1)
addsd  (%rcx),%xmm0
addsd  0x8(%rcx),%xmm0
addsd  0x10(%rcx),%xmm0
addsd  0x18(%rcx),%xmm0
addsd  0x20(%rcx),%xmm0
addsd  0x28(%rcx),%xmm0
addsd  0x30(%rcx),%xmm0
addsd  0x38(%rcx),%xmm0
add    $0x40,%rcx
add    $0xfffffff8,%eax
jne    1130 <subtract_mean+0x30>
test   $0x7,%sil
je     117d <subtract_mean+0x7d>
mov    %esi,%eax
and    $0x7,%eax
xor    %edx,%edx
nopl   (%rax)
addsd  (%rcx,%rdx,8),%xmm0
add    $0x1,%rdx
cmp    %edx,%eax
jne    1170 <subtract_mean+0x70>
test   %esi,%esi
je     1276 <subtract_mean+0x176>
mov    %esi,%eax
cvtsi2sd %rax,%xmm1
divsd  %xmm1,%xmm0
xor    %r9d,%r9d
cmp    $0x3,%r8d
jb     1254 <subtract_mean+0x154>
add    $0x1,%r8
mov    %r8,%r9
and    $0xfffffffffffffffc,%r9
movapd %xmm0,%xmm1
unpcklpd %xmm0,%xmm1
lea    -0x4(%r9),%rax
mov    %rax,%rcx
shr    $0x2,%rcx
add    $0x1,%rcx
test   %rax,%rax
je     1277 <subtract_mean+0x177>
mov    %rcx,%rax
and    $0xfffffffffffffffe,%rax
xor    %edx,%edx
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movupd (%rdi,%rdx,8),%xmm2
movupd 0x10(%rdi,%rdx,8),%xmm3
movupd 0x20(%rdi,%rdx,8),%xmm4
movupd 0x30(%rdi,%rdx,8),%xmm5
subpd  %xmm1,%xmm2
subpd  %xmm1,%xmm3
movupd %xmm2,(%rdi,%rdx,8)
movupd %xmm3,0x10(%rdi,%rdx,8)
subpd  %xmm1,%xmm4
subpd  %xmm1,%xmm5
movupd %xmm4,0x20(%rdi,%rdx,8)
movupd %xmm5,0x30(%rdi,%rdx,8)
add    $0x8,%rdx
add    $0xfffffffffffffffe,%rax
jne    11e0 <subtract_mean+0xe0>
test   $0x1,%cl
je     124b <subtract_mean+0x14b>
movupd (%rdi,%rdx,8),%xmm2
movupd 0x10(%rdi,%rdx,8),%xmm3
subpd  %xmm1,%xmm2
subpd  %xmm1,%xmm3
movupd %xmm2,(%rdi,%rdx,8)
movupd %xmm3,0x10(%rdi,%rdx,8)
cmp    %r9,%r8
je     1276 <subtract_mean+0x176>
lea    (%rdi,%r9,8),%rdi
sub    %r9d,%esi
xor    %eax,%eax
nopl   0x0(%rax)
movsd  (%rdi,%rax,8),%xmm1
subsd  %xmm0,%xmm1
movsd  %xmm1,(%rdi,%rax,8)
add    $0x1,%rax
cmp    %eax,%esi
jne    1260 <subtract_mean+0x160>
ret
xor    %edx,%edx
test   $0x1,%cl
jne    122d <subtract_mean+0x12d>
jmp    124b <subtract_mean+0x14b>

LLVM IR (-O0):
define void @subtract_mean(double* %0, i32 %1) {
%3 = alloca double*
%4 = alloca i32
%5 = alloca i32
%6 = alloca double
%7 = alloca double*
store double* %0, double** %3
store i32 %1, i32* %4
store double 0.000000e+00, double* %6
%8 = load double*, double** %3
store double* %8, double** %7
store i32 0, i32* %5
br label %9
9: ; preds = %19, %2
%10 = load i32, i32* %5
%11 = load i32, i32* %4
%12 = icmp ult i32 %10, %11
br i1 %12, label %13, label %22
13: ; preds = %9
%14 = load double*, double** %7
%15 = getelementptr inbounds double, double* %14, i32 1
store double* %15, double** %7
%16 = load double, double* %14
%17 = load double, double* %6
%18 = fadd double %17, %16
store double %18, double* %6
br label %19
19: ; preds = %13
%20 = load i32, i32* %5
%21 = add nsw i32 %20, 1
store i32 %21, i32* %5
br label %9
22: ; preds = %9
%23 = load double*, double** %3
store double* %23, double** %7
%24 = load double, double* %6
%25 = load i32, i32* %4
%26 = uitofp i32 %25 to double
%27 = fdiv double %24, %26
store double %27, double* %6
store i32 0, i32* %5
br label %28
28: ; preds = %38, %22
%29 = load i32, i32* %5
%30 = load i32, i32* %4
%31 = icmp ult i32 %29, %30
br i1 %31, label %32, label %41
32: ; preds = %28
%33 = load double, double* %6
%34 = load double*, double** %7
%35 = getelementptr inbounds double, double* %34, i32 1
store double* %35, double** %7
%36 = load double, double* %34
%37 = fsub double %36, %33
store double %37, double* %34
br label %38
38: ; preds = %32
%39 = load i32, i32* %5
%40 = add nsw i32 %39, 1
store i32 %40, i32* %5
br label %28
41: ; preds = %28
ret void
}

LLVM IR (-O2):
define void @subtract_mean(double* nocapture %0, i32 %1) {
%3 = icmp eq i32 %1, 0
br i1 %3, label %132, label %4
4: ; preds = %2
%5 = add i32 %1, -1
%6 = and i32 %1, 7
%7 = icmp ult i32 %5, 7
br i1 %7, label %40, label %8
8: ; preds = %4
%9 = and i32 %1, -8
br label %10
10: ; preds = %10, %8
%11 = phi double* [ %0, %8 ], [ %35, %10 ]
%12 = phi double [ 0.000000e+00, %8 ], [ %37, %10 ]
%13 = phi i32 [ 0, %8 ], [ %38, %10 ]
%14 = getelementptr inbounds double, double* %11, i64 1
%15 = load double, double* %11
%16 = fadd double %12, %15
%17 = getelementptr inbounds double, double* %11, i64 2
%18 = load double, double* %14
%19 = fadd double %16, %18
%20 = getelementptr inbounds double, double* %11, i64 3
%21 = load double, double* %17
%22 = fadd double %19, %21
%23 = getelementptr inbounds double, double* %11, i64 4
%24 = load double, double* %20
%25 = fadd double %22, %24
%26 = getelementptr inbounds double, double* %11, i64 5
%27 = load double, double* %23
%28 = fadd double %25, %27
%29 = getelementptr inbounds double, double* %11, i64 6
%30 = load double, double* %26
%31 = fadd double %28, %30
%32 = getelementptr inbounds double, double* %11, i64 7
%33 = load double, double* %29
%34 = fadd double %31, %33
%35 = getelementptr inbounds double, double* %11, i64 8
%36 = load double, double* %32
%37 = fadd double %34, %36
%38 = add i32 %13, 8
%39 = icmp eq i32 %38, %9
br i1 %39, label %40, label %10
40: ; preds = %10, %4
%41 = phi double [ undef, %4 ], [ %37, %10 ]
%42 = phi double* [ %0, %4 ], [ %35, %10 ]
%43 = phi double [ 0.000000e+00, %4 ], [ %37, %10 ]
%44 = icmp eq i32 %6, 0
br i1 %44, label %54, label %45
45: ; preds = %40, %45
%46 = phi double* [ %49, %45 ], [ %42, %40 ]
%47 = phi double [ %51, %45 ], [ %43, %40 ]
%48 = phi i32 [ %52, %45 ], [ 0, %40 ]
%49 = getelementptr inbounds double, double* %46, i64 1
%50 = load double, double* %46
%51 = fadd double %47, %50
%52 = add i32 %48, 1
%53 = icmp eq i32 %52, %6
br i1 %53, label %54, label %45
54: ; preds = %45, %40
%55 = phi double [ %41, %40 ], [ %51, %45 ]
%56 = uitofp i32 %1 to double
%57 = fdiv double %55, %56
br i1 %3, label %132, label %58
58: ; preds = %54
%59 = add i32 %1, -1
%60 = zext i32 %59 to i64
%61 = add nuw nsw i64 %60, 1
%62 = icmp ult i32 %59, 3
br i1 %62, label %121, label %63
63: ; preds = %58
%64 = and i64 %61, 8589934588
%65 = getelementptr double, double* %0, i64 %64
%66 = trunc i64 %64 to i32
%67 = insertelement <2 x double> poison, double %57, i64 0
%68 = shufflevector <2 x double> %67, <2 x double> poison, <2 x i32> zeroinitializer
%69 = insertelement <2 x double> poison, double %57, i64 0
%70 = shufflevector <2 x double> %69, <2 x double> poison, <2 x i32> zeroinitializer
%71 = add nsw i64 %64, -4
%72 = lshr exact i64 %71, 2
%73 = add nuw nsw i64 %72, 1
%74 = and i64 %73, 1
%75 = icmp eq i64 %71, 0
br i1 %75, label %105, label %76
76: ; preds = %63
%77 = and i64 %73, 9223372036854775806
br label %78
78: ; preds = %78, %76
%79 = phi i64 [ 0, %76 ], [ %102, %78 ]
%80 = phi i64 [ 0, %76 ], [ %103, %78 ]
%81 = getelementptr double, double* %0, i64 %79
%82 = bitcast double* %81 to <2 x double>*
%83 = load <2 x double>, <2 x double>* %82
%84 = getelementptr double, double* %81, i64 2
%85 = bitcast double* %84 to <2 x double>*
%86 = load <2 x double>, <2 x double>* %85
%87 = fsub <2 x double> %83, %68
%88 = fsub <2 x double> %86, %70
%89 = bitcast double* %81 to <2 x double>*
store <2 x double> %87, <2 x double>* %89
%90 = bitcast double* %84 to <2 x double>*
store <2 x double> %88, <2 x double>* %90
%91 = or i64 %79, 4
%92 = getelementptr double, double* %0, i64 %91
%93 = bitcast double* %92 to <2 x double>*
%94 = load <2 x double>, <2 x double>* %93
%95 = getelementptr double, double* %92, i64 2
%96 = bitcast double* %95 to <2 x double>*
%97 = load <2 x double>, <2 x double>* %96
%98 = fsub <2 x double> %94, %68
%99 = fsub <2 x double> %97, %70
%100 = bitcast double* %92 to <2 x double>*
store <2 x double> %98, <2 x double>* %100
%101 = bitcast double* %95 to <2 x double>*
store <2 x double> %99, <2 x double>* %101
%102 = add nuw i64 %79, 8
%103 = add i64 %80, 2
%104 = icmp eq i64 %103, %77
br i1 %104, label %105, label %78
105: ; preds = %78, %63
%106 = phi i64 [ 0, %63 ], [ %102, %78 ]
%107 = icmp eq i64 %74, 0
br i1 %107, label %119, label %108
108: ; preds = %105
%109 = getelementptr double, double* %0, i64 %106
%110 = bitcast double* %109 to <2 x double>*
%111 = load <2 x double>, <2 x double>* %110
%112 = getelementptr double, double* %109, i64 2
%113 = bitcast double* %112 to <2 x double>*
%114 = load <2 x double>, <2 x double>* %113
%115 = fsub <2 x double> %111, %68
%116 = fsub <2 x double> %114, %70
%117 = bitcast double* %109 to <2 x double>*
store <2 x double> %115, <2 x double>* %117
%118 = bitcast double* %112 to <2 x double>*
store <2 x double> %116, <2 x double>* %118
br label %119
119: ; preds = %105, %108
%120 = icmp eq i64 %61, %64
br i1 %120, label %132, label %121
121: ; preds = %58, %119
%122 = phi double* [ %0, %58 ], [ %65, %119 ]
%123 = phi i32 [ 0, %58 ], [ %66, %119 ]
br label %124
124: ; preds = %121, %124
%125 = phi double* [ %127, %124 ], [ %122, %121 ]
%126 = phi i32 [ %130, %124 ], [ %123, %121 ]
%127 = getelementptr inbounds double, double* %125, i64 1
%128 = load double, double* %125
%129 = fsub double %128, %57
store double %129, double* %125
%130 = add nuw nsw i32 %126, 1
%131 = icmp eq i32 %130, %1
br i1 %131, label %132, label %124
132: ; preds = %124, %119, %2, %54
ret void
}