double cdflib_eval_pol(const double a[], const int *n, double *x) {
  double devlpl, term;
  int i;
  term = a[*n - 1];
  for (i = *n - 1 - 1; i >= 0; i--) {
    term = a[i] + term * *x;
  }
  devlpl = term;
  return devlpl;
}


x86 assembly (clang, -O0):
<cdflib_eval_pol>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x10(%rbp),%rcx
mov    (%rcx),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x10(%rbp),%rax
mov    (%rax),%eax
sub    $0x1,%eax
sub    $0x1,%eax
mov    %eax,-0x2c(%rbp)
cmpl   $0x0,-0x2c(%rbp)
jl     1178 <cdflib_eval_pol+0x78>
mov    -0x8(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
movsd  -0x28(%rbp),%xmm0
mov    -0x18(%rbp),%rax
movsd  (%rax),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x2c(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x2c(%rbp)
jmp    1139 <cdflib_eval_pol+0x39>
movsd  -0x28(%rbp),%xmm0
movsd  %xmm0,-0x20(%rbp)
movsd  -0x20(%rbp),%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<cdflib_eval_pol>:
movslq (%rsi),%rsi
movsd  -0x8(%rdi,%rsi,8),%xmm0
cmp    $0x2,%rsi
jl     117e <cdflib_eval_pol+0x7e>
lea    -0x2(%rsi),%ecx
movsd  (%rdx),%xmm1
add    $0xffffffff,%esi
mov    %rcx,%rax
and    $0x3,%rsi
je     1143 <cdflib_eval_pol+0x43>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
mulsd  %xmm1,%xmm0
addsd  (%rdi,%rax,8),%xmm0
add    $0xffffffffffffffff,%rax
add    $0xffffffffffffffff,%rsi
jne    1130 <cdflib_eval_pol+0x30>
cmp    $0x3,%ecx
jb     117e <cdflib_eval_pol+0x7e>
add    $0x1,%rax
nopl   0x0(%rax)
mulsd  %xmm1,%xmm0
addsd  -0x8(%rdi,%rax,8),%xmm0
mulsd  %xmm1,%xmm0
addsd  -0x10(%rdi,%rax,8),%xmm0
mulsd  %xmm1,%xmm0
addsd  -0x18(%rdi,%rax,8),%xmm0
mulsd  %xmm1,%xmm0
addsd  -0x20(%rdi,%rax,8),%xmm0
add    $0xfffffffffffffffc,%rax
jne    1150 <cdflib_eval_pol+0x50>
ret

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

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