double rpva(a, n, x0)
double *a, x0;
int n;
{
  int i;
  double r;
  r = a[n - 1];
  for (i = n - 2; i >= 0; i--)
    r = r * x0 + a[i];
  return (r);
}


x86 assembly (clang, -O0):
<rpva>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
movsd  %xmm0,-0x18(%rbp)
mov    -0x8(%rbp),%rax
mov    -0xc(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0xc(%rbp),%eax
sub    $0x2,%eax
mov    %eax,-0x1c(%rbp)
cmpl   $0x0,-0x1c(%rbp)
jl     116c <rpva+0x6c>
movsd  -0x28(%rbp),%xmm0
movsd  -0x18(%rbp),%xmm2
mov    -0x8(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x1c(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x1c(%rbp)
jmp    1130 <rpva+0x30>
movsd  -0x28(%rbp),%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<rpva>:
movapd %xmm0,%xmm1
movslq %esi,%rax
movsd  -0x8(%rdi,%rax,8),%xmm0
cmp    $0x2,%eax
jl     117e <rpva+0x7e>
lea    -0x2(%rsi),%ecx
add    $0xffffffff,%esi
mov    %rcx,%rax
and    $0x3,%rsi
je     1143 <rpva+0x43>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
mulsd  %xmm1,%xmm0
addsd  (%rdi,%rax,8),%xmm0
add    $0xffffffffffffffff,%rax
add    $0xffffffffffffffff,%rsi
jne    1130 <rpva+0x30>
cmp    $0x3,%ecx
jb     117e <rpva+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 <rpva+0x50>
ret

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

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