void paramcorr(double *x, double *y, double *param, int nparam) {
  int i = 2;
  if (nparam == 0)
    return;
  double rx = *x + param[0];
  double ry = *y + param[1];
  double rn = 1.;
  double c = 0.;
  for (;;) {
    c += rn * param[i];
    i++;
    if (i >= nparam)
      break;
    c += rn * rx * param[i];
    i++;
    if (i >= nparam)
      break;
    c += rn * ry * param[i];
    i++;
    if (i >= nparam)
      break;
    rn *= rx * rx + ry * ry;
  }
  *x += c * rx;
  *y += c * ry;
}


x86 assembly (clang, -O0):
<paramcorr>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %ecx,-0x1c(%rbp)
movl   $0x2,-0x20(%rbp)
cmpl   $0x0,-0x1c(%rbp)
jne    1129 <paramcorr+0x29>
jmp    1294 <paramcorr+0x194>
mov    -0x8(%rbp),%rax
movsd  (%rax),%xmm0
mov    -0x18(%rbp),%rax
addsd  (%rax),%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x10(%rbp),%rax
movsd  (%rax),%xmm0
mov    -0x18(%rbp),%rax
addsd  0x8(%rax),%xmm0
movsd  %xmm0,-0x30(%rbp)
movsd  0xea4(%rip),%xmm0
movsd  %xmm0,-0x38(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  -0x38(%rbp),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x40(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x40(%rbp)
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jl     11a7 <paramcorr+0xa7>
jmp    1258 <paramcorr+0x158>
movsd  -0x38(%rbp),%xmm0
mulsd  -0x28(%rbp),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x40(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x40(%rbp)
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jl     11ea <paramcorr+0xea>
jmp    1258 <paramcorr+0x158>
movsd  -0x38(%rbp),%xmm0
mulsd  -0x30(%rbp),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x40(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x40(%rbp)
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jl     122d <paramcorr+0x12d>
jmp    1258 <paramcorr+0x158>
movsd  -0x28(%rbp),%xmm0
movsd  -0x28(%rbp),%xmm2
movsd  -0x30(%rbp),%xmm1
mulsd  -0x30(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
mulsd  -0x38(%rbp),%xmm0
movsd  %xmm0,-0x38(%rbp)
jmp    1169 <paramcorr+0x69>
movsd  -0x40(%rbp),%xmm0
movsd  -0x28(%rbp),%xmm2
mov    -0x8(%rbp),%rax
movsd  (%rax),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,(%rax)
movsd  -0x40(%rbp),%xmm0
movsd  -0x30(%rbp),%xmm2
mov    -0x10(%rbp),%rax
movsd  (%rax),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,(%rax)
pop    %rbp
ret

x86 assembly (clang, -O2):
<paramcorr>:
test   %ecx,%ecx
je     11d0 <paramcorr+0xd0>
movsd  (%rdi),%xmm1
movsd  (%rdx),%xmm2
addsd  %xmm1,%xmm2
movsd  (%rsi),%xmm0
addsd  0x8(%rdx),%xmm0
xorpd  %xmm3,%xmm3
addsd  0x10(%rdx),%xmm3
cmp    $0x4,%ecx
jl     11b8 <paramcorr+0xb8>
movapd %xmm0,%xmm5
mulsd  %xmm0,%xmm5
movapd %xmm2,%xmm4
mulsd  %xmm2,%xmm4
addsd  %xmm5,%xmm4
movsd  0xeb5(%rip),%xmm5
mov    $0x3,%r8d
mov    $0x5,%r9d
nopw   0x0(%rax,%rax,1)
movapd %xmm2,%xmm6
mulsd  %xmm5,%xmm6
mulsd  -0x10(%rdx,%r9,8),%xmm6
addsd  %xmm6,%xmm3
lea    0x1(%r8),%eax
cmp    %ecx,%eax
jge    11b8 <paramcorr+0xb8>
movapd %xmm0,%xmm6
mulsd  %xmm5,%xmm6
mulsd  -0x8(%rdx,%r9,8),%xmm6
addsd  %xmm3,%xmm6
cmp    %ecx,%r9d
jge    11b4 <paramcorr+0xb4>
mulsd  %xmm4,%xmm5
movsd  (%rdx,%r9,8),%xmm3
mulsd  %xmm5,%xmm3
addsd  %xmm6,%xmm3
add    $0x3,%r8d
add    $0x3,%r9
cmp    %ecx,%r8d
jl     1160 <paramcorr+0x60>
jmp    11b8 <paramcorr+0xb8>
movapd %xmm6,%xmm3
mulsd  %xmm3,%xmm2
addsd  %xmm1,%xmm2
movsd  %xmm2,(%rdi)
mulsd  %xmm3,%xmm0
addsd  (%rsi),%xmm0
movsd  %xmm0,(%rsi)
ret

LLVM IR (-O0):
define void @paramcorr(double* %0, double* %1, double* %2, i32 %3) {
%5 = alloca double*
%6 = alloca double*
%7 = alloca double*
%8 = alloca i32
%9 = alloca i32
%10 = alloca double
%11 = alloca double
%12 = alloca double
%13 = alloca double
store double* %0, double** %5
store double* %1, double** %6
store double* %2, double** %7
store i32 %3, i32* %8
store i32 2, i32* %9
%14 = load i32, i32* %8
%15 = icmp eq i32 %14, 0
br i1 %15, label %16, label %17
16: ; preds = %4
br label %99
17: ; preds = %4
%18 = load double*, double** %5
%19 = load double, double* %18
%20 = load double*, double** %7
%21 = getelementptr inbounds double, double* %20, i64 0
%22 = load double, double* %21
%23 = fadd double %19, %22
store double %23, double* %10
%24 = load double*, double** %6
%25 = load double, double* %24
%26 = load double*, double** %7
%27 = getelementptr inbounds double, double* %26, i64 1
%28 = load double, double* %27
%29 = fadd double %25, %28
store double %29, double* %11
store double 1.000000e+00, double* %12
store double 0.000000e+00, double* %13
br label %30
30: ; preds = %79, %17
%31 = load double, double* %12
%32 = load double*, double** %7
%33 = load i32, i32* %9
%34 = sext i32 %33 to i64
%35 = getelementptr inbounds double, double* %32, i64 %34
%36 = load double, double* %35
%37 = load double, double* %13
%38 = call double @llvm.fmuladd.f64(double %31, double %36, double %37)
store double %38, double* %13
%39 = load i32, i32* %9
%40 = add nsw i32 %39, 1
store i32 %40, i32* %9
%41 = load i32, i32* %9
%42 = load i32, i32* %8
%43 = icmp sge i32 %41, %42
br i1 %43, label %44, label %45
44: ; preds = %30
br label %88
45: ; preds = %30
%46 = load double, double* %12
%47 = load double, double* %10
%48 = fmul double %46, %47
%49 = load double*, double** %7
%50 = load i32, i32* %9
%51 = sext i32 %50 to i64
%52 = getelementptr inbounds double, double* %49, i64 %51
%53 = load double, double* %52
%54 = load double, double* %13
%55 = call double @llvm.fmuladd.f64(double %48, double %53, double %54)
store double %55, double* %13
%56 = load i32, i32* %9
%57 = add nsw i32 %56, 1
store i32 %57, i32* %9
%58 = load i32, i32* %9
%59 = load i32, i32* %8
%60 = icmp sge i32 %58, %59
br i1 %60, label %61, label %62
61: ; preds = %45
br label %88
62: ; preds = %45
%63 = load double, double* %12
%64 = load double, double* %11
%65 = fmul double %63, %64
%66 = load double*, double** %7
%67 = load i32, i32* %9
%68 = sext i32 %67 to i64
%69 = getelementptr inbounds double, double* %66, i64 %68
%70 = load double, double* %69
%71 = load double, double* %13
%72 = call double @llvm.fmuladd.f64(double %65, double %70, double %71)
store double %72, double* %13
%73 = load i32, i32* %9
%74 = add nsw i32 %73, 1
store i32 %74, i32* %9
%75 = load i32, i32* %9
%76 = load i32, i32* %8
%77 = icmp sge i32 %75, %76
br i1 %77, label %78, label %79
78: ; preds = %62
br label %88
79: ; preds = %62
%80 = load double, double* %10
%81 = load double, double* %10
%82 = load double, double* %11
%83 = load double, double* %11
%84 = fmul double %82, %83
%85 = call double @llvm.fmuladd.f64(double %80, double %81, double %84)
%86 = load double, double* %12
%87 = fmul double %86, %85
store double %87, double* %12
br label %30
88: ; preds = %78, %61, %44
%89 = load double, double* %13
%90 = load double, double* %10
%91 = load double*, double** %5
%92 = load double, double* %91
%93 = call double @llvm.fmuladd.f64(double %89, double %90, double %92)
store double %93, double* %91
%94 = load double, double* %13
%95 = load double, double* %11
%96 = load double*, double** %6
%97 = load double, double* %96
%98 = call double @llvm.fmuladd.f64(double %94, double %95, double %97)
store double %98, double* %96
br label %99
99: ; preds = %88, %16
ret void
}

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