double chbevl(x, array, n)
double x;
double array[];
int n;
{
  double b0, b1, b2, *p;
  int i;
  p = array;
  b0 = *p++;
  b1 = 0.0;
  i = n - 1;
  do {
    b2 = b1;
    b1 = b0;
    b0 = x * b1 - b2 + *p++;
  } while (--i);
  return (0.5 * (b0 - b2));
}


x86 assembly (clang, -O0):
<chbevl>:
push   %rbp
mov    %rsp,%rbp
movsd  %xmm0,-0x8(%rbp)
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,-0x38(%rbp)
mov    -0x38(%rbp),%rax
mov    %rax,%rcx
add    $0x8,%rcx
mov    %rcx,-0x38(%rbp)
movsd  (%rax),%xmm0
movsd  %xmm0,-0x20(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x14(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x3c(%rbp)
movsd  -0x28(%rbp),%xmm0
movsd  %xmm0,-0x30(%rbp)
movsd  -0x20(%rbp),%xmm0
movsd  %xmm0,-0x28(%rbp)
movsd  -0x8(%rbp),%xmm0
movsd  -0x28(%rbp),%xmm2
movsd  -0x30(%rbp),%xmm1
movq   %xmm1,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
mov    -0x38(%rbp),%rax
mov    %rax,%rcx
add    $0x8,%rcx
mov    %rcx,-0x38(%rbp)
addsd  (%rax),%xmm0
movsd  %xmm0,-0x20(%rbp)
mov    -0x3c(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x3c(%rbp)
cmp    $0x0,%eax
jne    1141 <chbevl+0x41>
movsd  -0x20(%rbp),%xmm1
subsd  -0x30(%rbp),%xmm1
movsd  0xe41(%rip),%xmm0
mulsd  %xmm1,%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<chbevl>:
movsd  (%rdi),%xmm1
lea    -0x1(%rsi),%eax
lea    -0x2(%rsi),%ecx
test   $0x3,%al
je     1152 <chbevl+0x52>
add    $0xff,%sil
movzbl %sil,%edx
and    $0x3,%edx
xorpd  %xmm4,%xmm4
xor    %esi,%esi
nop
movapd %xmm1,%xmm2
movapd %xmm4,%xmm3
movapd %xmm0,%xmm1
mulsd  %xmm2,%xmm1
subsd  %xmm4,%xmm1
addsd  0x8(%rdi),%xmm1
add    $0x8,%rdi
add    $0x1,%rsi
movapd %xmm2,%xmm4
cmp    %esi,%edx
jne    1120 <chbevl+0x20>
sub    %esi,%eax
cmp    $0x3,%ecx
jae    115b <chbevl+0x5b>
jmp    11b0 <chbevl+0xb0>
xorpd  %xmm2,%xmm2
cmp    $0x3,%ecx
jb     11b0 <chbevl+0xb0>
mov    %eax,%eax
xor    %ecx,%ecx
nop
movapd %xmm0,%xmm4
mulsd  %xmm1,%xmm4
subsd  %xmm2,%xmm4
addsd  0x8(%rdi,%rcx,8),%xmm4
movapd %xmm0,%xmm3
mulsd  %xmm4,%xmm3
subsd  %xmm1,%xmm3
addsd  0x10(%rdi,%rcx,8),%xmm3
movapd %xmm0,%xmm2
mulsd  %xmm3,%xmm2
subsd  %xmm4,%xmm2
addsd  0x18(%rdi,%rcx,8),%xmm2
movapd %xmm0,%xmm1
mulsd  %xmm2,%xmm1
subsd  %xmm3,%xmm1
addsd  0x20(%rdi,%rcx,8),%xmm1
add    $0x4,%rcx
cmp    %ecx,%eax
jne    1160 <chbevl+0x60>
subsd  %xmm3,%xmm1
mulsd  0xe44(%rip),%xmm1
movapd %xmm1,%xmm0
ret

LLVM IR (-O0):
define double @chbevl(double %0, double* %1, i32 %2) {
%4 = alloca double
%5 = alloca double*
%6 = alloca i32
%7 = alloca double
%8 = alloca double
%9 = alloca double
%10 = alloca double*
%11 = alloca i32
store double %0, double* %4
store double* %1, double** %5
store i32 %2, i32* %6
%12 = load double*, double** %5
store double* %12, double** %10
%13 = load double*, double** %10
%14 = getelementptr inbounds double, double* %13, i32 1
store double* %14, double** %10
%15 = load double, double* %13
store double %15, double* %7
store double 0.000000e+00, double* %8
%16 = load i32, i32* %6
%17 = sub nsw i32 %16, 1
store i32 %17, i32* %11
br label %18
18: ; preds = %30, %3
%19 = load double, double* %8
store double %19, double* %9
%20 = load double, double* %7
store double %20, double* %8
%21 = load double, double* %4
%22 = load double, double* %8
%23 = load double, double* %9
%24 = fneg double %23
%25 = call double @llvm.fmuladd.f64(double %21, double %22, double %24)
%26 = load double*, double** %10
%27 = getelementptr inbounds double, double* %26, i32 1
store double* %27, double** %10
%28 = load double, double* %26
%29 = fadd double %25, %28
store double %29, double* %7
br label %30
30: ; preds = %18
%31 = load i32, i32* %11
%32 = add nsw i32 %31, -1
store i32 %32, i32* %11
%33 = icmp ne i32 %32, 0
br i1 %33, label %18, label %34
34: ; preds = %30
%35 = load double, double* %7
%36 = load double, double* %9
%37 = fsub double %35, %36
%38 = fmul double 5.000000e-01, %37
ret double %38
}

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