double error_func(double *par, int ny, double *y, double *dysq,
                  double (*func)(double *, int, void *), void *fdata) {
  int x;
  double res, e = 0;
  for (x = 0; x < ny; x++) {
    res = func(par, x, fdata) - y[x];
    if (dysq)
      e += res * res / dysq[x];
    else
      e += res * res;
  }
  return e;
}


x86 assembly (clang, -O0):
<error_func>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
mov    %r9,-0x30(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x48(%rbp)
movl   $0x0,-0x34(%rbp)
mov    -0x34(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    11bd <error_func+0xbd>
mov    -0x28(%rbp),%rax
mov    -0x8(%rbp),%rdi
mov    -0x34(%rbp),%esi
mov    -0x30(%rbp),%rdx
call   *%rax
mov    -0x18(%rbp),%rax
movslq -0x34(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x40(%rbp)
cmpq   $0x0,-0x20(%rbp)
je     118e <error_func+0x8e>
movsd  -0x40(%rbp),%xmm0
mulsd  -0x40(%rbp),%xmm0
mov    -0x20(%rbp),%rax
movslq -0x34(%rbp),%rcx
divsd  (%rax,%rcx,8),%xmm0
addsd  -0x48(%rbp),%xmm0
movsd  %xmm0,-0x48(%rbp)
jmp    11aa <error_func+0xaa>
movsd  -0x40(%rbp),%xmm0
movsd  -0x40(%rbp),%xmm2
movsd  -0x48(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x48(%rbp)
jmp    11af <error_func+0xaf>
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    112e <error_func+0x2e>
movsd  -0x48(%rbp),%xmm0
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<error_func>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x18,%rsp
mov    %r9,0x10(%rsp)
test   %esi,%esi
jle    1170 <error_func+0x70>
mov    %r8,%r15
mov    %rcx,%rbx
mov    %rdx,%r12
mov    %rdi,%r13
mov    %esi,%r14d
xorpd  %xmm0,%xmm0
xor    %ebp,%ebp
jmp    1147 <error_func+0x47>
xchg   %ax,%ax
movsd  0x8(%rsp),%xmm1
addsd  %xmm0,%xmm1
movapd %xmm1,%xmm0
add    $0x1,%rbp
cmp    %rbp,%r14
je     1174 <error_func+0x74>
movsd  %xmm0,0x8(%rsp)
mov    %r13,%rdi
mov    %ebp,%esi
mov    0x10(%rsp),%rdx
call   *%r15
subsd  (%r12,%rbp,8),%xmm0
mulsd  %xmm0,%xmm0
test   %rbx,%rbx
je     1130 <error_func+0x30>
divsd  (%rbx,%rbp,8),%xmm0
jmp    1130 <error_func+0x30>
xorpd  %xmm0,%xmm0
add    $0x18,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define double @error_func(double* %0, i32 %1, double* %2, double* %3, double (double*, i32, i8*)* %4, i8* %5) {
%7 = alloca double*
%8 = alloca i32
%9 = alloca double*
%10 = alloca double*
%11 = alloca double (double*, i32, i8*)*
%12 = alloca i8*
%13 = alloca i32
%14 = alloca double
%15 = alloca double
store double* %0, double** %7
store i32 %1, i32* %8
store double* %2, double** %9
store double* %3, double** %10
store double (double*, i32, i8*)* %4, double (double*, i32, i8*)** %11
store i8* %5, i8** %12
store double 0.000000e+00, double* %15
store i32 0, i32* %13
br label %16
16: ; preds = %52, %6
%17 = load i32, i32* %13
%18 = load i32, i32* %8
%19 = icmp slt i32 %17, %18
br i1 %19, label %20, label %55
20: ; preds = %16
%21 = load double (double*, i32, i8*)*, double (double*, i32, i8*)** %11
%22 = load double*, double** %7
%23 = load i32, i32* %13
%24 = load i8*, i8** %12
%25 = call double %21(double* %22, i32 %23, i8* %24)
%26 = load double*, double** %9
%27 = load i32, i32* %13
%28 = sext i32 %27 to i64
%29 = getelementptr inbounds double, double* %26, i64 %28
%30 = load double, double* %29
%31 = fsub double %25, %30
store double %31, double* %14
%32 = load double*, double** %10
%33 = icmp ne double* %32, null
br i1 %33, label %34, label %46
34: ; preds = %20
%35 = load double, double* %14
%36 = load double, double* %14
%37 = fmul double %35, %36
%38 = load double*, double** %10
%39 = load i32, i32* %13
%40 = sext i32 %39 to i64
%41 = getelementptr inbounds double, double* %38, i64 %40
%42 = load double, double* %41
%43 = fdiv double %37, %42
%44 = load double, double* %15
%45 = fadd double %44, %43
store double %45, double* %15
br label %51
46: ; preds = %20
%47 = load double, double* %14
%48 = load double, double* %14
%49 = load double, double* %15
%50 = call double @llvm.fmuladd.f64(double %47, double %48, double %49)
store double %50, double* %15
br label %51
51: ; preds = %46, %34
br label %52
52: ; preds = %51
%53 = load i32, i32* %13
%54 = add nsw i32 %53, 1
store i32 %54, i32* %13
br label %16
55: ; preds = %16
%56 = load double, double* %15
ret double %56
}

LLVM IR (-O2):
define double @error_func(double* %0, i32 %1, double* nocapture %2, double* %3, double (double*, i32, i8*)* nocapture %4, i8* %5) {
%7 = icmp sgt i32 %1, 0
br i1 %7, label %8, label %31
8: ; preds = %6
%9 = icmp eq double* %3, null
%10 = zext i32 %1 to i64
br label %11
11: ; preds = %8, %27
%12 = phi i64 [ 0, %8 ], [ %29, %27 ]
%13 = phi double [ 0.000000e+00, %8 ], [ %28, %27 ]
%14 = trunc i64 %12 to i32
%15 = tail call double %4(double* %0, i32 %14, i8* %5)
%16 = getelementptr inbounds double, double* %2, i64 %12
%17 = load double, double* %16
%18 = fsub double %15, %17
br i1 %9, label %25, label %19
19: ; preds = %11
%20 = fmul double %18, %18
%21 = getelementptr inbounds double, double* %3, i64 %12
%22 = load double, double* %21
%23 = fdiv double %20, %22
%24 = fadd double %13, %23
br label %27
25: ; preds = %11
%26 = tail call double @llvm.fmuladd.f64(double %18, double %18, double %13)
br label %27
27: ; preds = %19, %25
%28 = phi double [ %24, %19 ], [ %26, %25 ]
%29 = add nuw nsw i64 %12, 1
%30 = icmp eq i64 %29, %10
br i1 %30, label %31, label %11
31: ; preds = %27, %6
%32 = phi double [ 0.000000e+00, %6 ], [ %28, %27 ]
ret double %32
}