double tdpolyval(double a[], int m, int n, double x, double y) {
  int i, j;
  double val, srow, xrow;
  for (val = 0.0, i = 0, xrow = 1.0; i < m - 1; i++, xrow = xrow * x) {
    for (srow = a[n - 1 + i * n] * xrow, j = n - 2; j >= 0; j--) {
      srow = srow * y + a[j + i * n] * xrow;
    }
    val = val + srow;
  }
  return val;
}


x86 assembly (clang, -O0):
<tdpolyval>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
movsd  %xmm0,-0x18(%rbp)
movsd  %xmm1,-0x20(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x30(%rbp)
movl   $0x0,-0x24(%rbp)
movsd  0xed1(%rip),%xmm0
movsd  %xmm0,-0x40(%rbp)
mov    -0x24(%rbp),%eax
mov    -0xc(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jge    11eb <tdpolyval+0xeb>
mov    -0x8(%rbp),%rax
mov    -0x10(%rbp),%ecx
sub    $0x1,%ecx
mov    -0x24(%rbp),%edx
imul   -0x10(%rbp),%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mulsd  -0x40(%rbp),%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x10(%rbp),%eax
sub    $0x2,%eax
mov    %eax,-0x28(%rbp)
cmpl   $0x0,-0x28(%rbp)
jl     11bf <tdpolyval+0xbf>
movsd  -0x38(%rbp),%xmm0
movsd  -0x20(%rbp),%xmm2
mov    -0x8(%rbp),%rax
mov    -0x28(%rbp),%ecx
mov    -0x24(%rbp),%edx
imul   -0x10(%rbp),%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm1
mulsd  -0x40(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x28(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x28(%rbp)
jmp    1173 <tdpolyval+0x73>
movsd  -0x30(%rbp),%xmm0
addsd  -0x38(%rbp),%xmm0
movsd  %xmm0,-0x30(%rbp)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
movsd  -0x40(%rbp),%xmm0
mulsd  -0x18(%rbp),%xmm0
movsd  %xmm0,-0x40(%rbp)
jmp    1134 <tdpolyval+0x34>
movsd  -0x30(%rbp),%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<tdpolyval>:
xorpd  %xmm2,%xmm2
cmp    $0x2,%esi
jl     118a <tdpolyval+0x8a>
add    $0xffffffff,%esi
lea    -0x1(%rdx),%eax
lea    -0x2(%rdx),%ecx
movslq %ecx,%r8
movslq %edx,%r11
movslq %eax,%r9
add    $0x1,%r8
lea    0x0(,%r11,8),%r10
xorpd  %xmm2,%xmm2
movsd  0xec9(%rip),%xmm3
xor    %edx,%edx
mov    %rdi,%rax
jmp    1154 <tdpolyval+0x54>
xchg   %ax,%ax
addsd  %xmm4,%xmm2
add    $0x1,%rdx
mulsd  %xmm0,%xmm3
add    %r10,%rax
cmp    %rsi,%rdx
je     118a <tdpolyval+0x8a>
mov    %rdx,%rcx
imul   %r11,%rcx
add    %r9,%rcx
movsd  (%rdi,%rcx,8),%xmm4
mulsd  %xmm3,%xmm4
cmp    $0x2,%r11d
jl     1140 <tdpolyval+0x40>
mov    %r8,%rcx
movsd  -0x8(%rax,%rcx,8),%xmm5
mulsd  %xmm3,%xmm5
mulsd  %xmm1,%xmm4
addsd  %xmm5,%xmm4
add    $0xffffffffffffffff,%rcx
jg     1170 <tdpolyval+0x70>
jmp    1140 <tdpolyval+0x40>
movapd %xmm2,%xmm0
ret

LLVM IR (-O0):
define double @tdpolyval(double* %0, i32 %1, i32 %2, double %3, double %4) {
%6 = alloca double*
%7 = alloca i32
%8 = alloca i32
%9 = alloca double
%10 = alloca double
%11 = alloca i32
%12 = alloca i32
%13 = alloca double
%14 = alloca double
%15 = alloca double
store double* %0, double** %6
store i32 %1, i32* %7
store i32 %2, i32* %8
store double %3, double* %9
store double %4, double* %10
store double 0.000000e+00, double* %13
store i32 0, i32* %11
store double 1.000000e+00, double* %15
br label %16
16: ; preds = %61, %5
%17 = load i32, i32* %11
%18 = load i32, i32* %7
%19 = sub nsw i32 %18, 1
%20 = icmp slt i32 %17, %19
br i1 %20, label %21, label %67
21: ; preds = %16
%22 = load double*, double** %6
%23 = load i32, i32* %8
%24 = sub nsw i32 %23, 1
%25 = load i32, i32* %11
%26 = load i32, i32* %8
%27 = mul nsw i32 %25, %26
%28 = add nsw i32 %24, %27
%29 = sext i32 %28 to i64
%30 = getelementptr inbounds double, double* %22, i64 %29
%31 = load double, double* %30
%32 = load double, double* %15
%33 = fmul double %31, %32
store double %33, double* %14
%34 = load i32, i32* %8
%35 = sub nsw i32 %34, 2
store i32 %35, i32* %12
br label %36
36: ; preds = %54, %21
%37 = load i32, i32* %12
%38 = icmp sge i32 %37, 0
br i1 %38, label %39, label %57
39: ; preds = %36
%40 = load double, double* %14
%41 = load double, double* %10
%42 = load double*, double** %6
%43 = load i32, i32* %12
%44 = load i32, i32* %11
%45 = load i32, i32* %8
%46 = mul nsw i32 %44, %45
%47 = add nsw i32 %43, %46
%48 = sext i32 %47 to i64
%49 = getelementptr inbounds double, double* %42, i64 %48
%50 = load double, double* %49
%51 = load double, double* %15
%52 = fmul double %50, %51
%53 = call double @llvm.fmuladd.f64(double %40, double %41, double %52)
store double %53, double* %14
br label %54
54: ; preds = %39
%55 = load i32, i32* %12
%56 = add nsw i32 %55, -1
store i32 %56, i32* %12
br label %36
57: ; preds = %36
%58 = load double, double* %13
%59 = load double, double* %14
%60 = fadd double %58, %59
store double %60, double* %13
br label %61
61: ; preds = %57
%62 = load i32, i32* %11
%63 = add nsw i32 %62, 1
store i32 %63, i32* %11
%64 = load double, double* %15
%65 = load double, double* %9
%66 = fmul double %64, %65
store double %66, double* %15
br label %16
67: ; preds = %16
%68 = load double, double* %13
ret double %68
}

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