double imglsadff1t(double x, double *b, const int m, const double a,
                   const double g, double *d) {
  int i;
  double y;
  y = x + g * (1.0 - a * a) * d[0];
  d[m] = b[m] * x + a * d[m - 1];
  for (i = m - 1; i >= 1; i--)
    d[i] += b[i] * x + a * (d[i - 1] - d[i + 1]);
  for (i = 0; i < m; i++)
    d[i] = d[i + 1];
  return (y);
}


x86 assembly (clang, -O0):
<imglsadff1t>:
push   %rbp
mov    %rsp,%rbp
movsd  %xmm0,-0x8(%rbp)
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
movsd  %xmm1,-0x20(%rbp)
movsd  %xmm2,-0x28(%rbp)
mov    %rdx,-0x30(%rbp)
movsd  -0x8(%rbp),%xmm1
movsd  -0x28(%rbp),%xmm0
movsd  -0x20(%rbp),%xmm2
movsd  -0x20(%rbp),%xmm3
movq   %xmm2,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm2
mulsd  %xmm3,%xmm2
movsd  0xeab(%rip),%xmm3
addsd  %xmm3,%xmm2
mulsd  %xmm2,%xmm0
mov    -0x30(%rbp),%rax
movsd  (%rax),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x40(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  -0x8(%rbp),%xmm2
movsd  -0x20(%rbp),%xmm1
mov    -0x30(%rbp),%rax
mov    -0x14(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
mulsd  (%rax,%rcx,8),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
mov    -0x30(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x14(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x34(%rbp)
cmpl   $0x1,-0x34(%rbp)
jl     122a <imglsadff1t+0x12a>
mov    -0x10(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  -0x8(%rbp),%xmm2
movsd  -0x20(%rbp),%xmm1
mov    -0x30(%rbp),%rax
mov    -0x34(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm3
mov    -0x30(%rbp),%rax
mov    -0x34(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
subsd  (%rax,%rcx,8),%xmm3
mulsd  %xmm3,%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
mov    -0x30(%rbp),%rax
movslq -0x34(%rbp),%rcx
addsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x34(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x34(%rbp)
jmp    11b9 <imglsadff1t+0xb9>
movl   $0x0,-0x34(%rbp)
mov    -0x34(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    126a <imglsadff1t+0x16a>
mov    -0x30(%rbp),%rax
mov    -0x34(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x30(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    1231 <imglsadff1t+0x131>
movsd  -0x40(%rbp),%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<imglsadff1t>:
sub    $0x28,%rsp
movapd %xmm0,%xmm3
movsd  (%rdx),%xmm4
movslq %esi,%rax
movsd  -0x8(%rdx,%rax,8),%xmm0
mulsd  %xmm1,%xmm0
movsd  (%rdi,%rax,8),%xmm5
mulsd  %xmm3,%xmm5
addsd  %xmm0,%xmm5
movsd  %xmm5,(%rdx,%rax,8)
cmp    $0x2,%esi
jl     118c <imglsadff1t+0x7c>
lea    -0x1(%rsi),%eax
mov    %eax,%eax
add    $0xffffffffffffffff,%rax
nopl   0x0(%rax)
mov    %eax,%ecx
movsd  (%rdx,%rcx,8),%xmm0
subsd  0x10(%rdx,%rax,8),%xmm0
mulsd  %xmm1,%xmm0
movsd  0x8(%rdi,%rax,8),%xmm5
mulsd  %xmm3,%xmm5
addsd  %xmm0,%xmm5
addsd  0x8(%rdx,%rax,8),%xmm5
movsd  %xmm5,0x8(%rdx,%rax,8)
lea    -0x1(%rax),%rcx
add    $0x1,%rax
cmp    $0x1,%rax
mov    %rcx,%rax
ja     1150 <imglsadff1t+0x40>
test   %esi,%esi
jle    11d8 <imglsadff1t+0xc8>
lea    0x8(%rdx),%rax
mov    %esi,%ecx
shl    $0x3,%rcx
mov    %rdx,%rdi
mov    %rax,%rsi
mov    %rcx,%rdx
movsd  %xmm3,0x20(%rsp)
movsd  %xmm2,0x18(%rsp)
movsd  %xmm4,0x10(%rsp)
movsd  %xmm1,0x8(%rsp)
call   1030 <memmove@plt>
movsd  0x8(%rsp),%xmm1
movsd  0x10(%rsp),%xmm4
movsd  0x18(%rsp),%xmm2
movsd  0x20(%rsp),%xmm3
mulsd  %xmm1,%xmm1
movsd  0xe1c(%rip),%xmm0
subsd  %xmm1,%xmm0
mulsd  %xmm2,%xmm0
mulsd  %xmm4,%xmm0
addsd  %xmm3,%xmm0
add    $0x28,%rsp
ret

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

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