double Px(double **matriz, double x, int FIl, int COL) {
  double result = matriz[0][1];
  double mult = 1;
  int i, j, n = 1;
  for (i = 2; i < COL; i++) {
    mult = matriz[0][i];
    for (j = 0; j < n; j++) {
      mult = mult * (x - matriz[j][0]);
    }
    result = result + mult;
    n++;
  }
  return result;
}


x86 assembly (clang, -O0):
<Px>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
movsd  %xmm0,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
mov    %edx,-0x18(%rbp)
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
movsd  0x8(%rax),%xmm0
movsd  %xmm0,-0x20(%rbp)
movsd  0xed4(%rip),%xmm0
movsd  %xmm0,-0x28(%rbp)
movl   $0x1,-0x34(%rbp)
movl   $0x2,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x18(%rbp),%eax
jge    11ca <Px+0xca>
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x28(%rbp)
movl   $0x0,-0x30(%rbp)
mov    -0x30(%rbp),%eax
cmp    -0x34(%rbp),%eax
jge    11a4 <Px+0xa4>
movsd  -0x28(%rbp),%xmm0
movsd  -0x10(%rbp),%xmm1
mov    -0x8(%rbp),%rax
movslq -0x30(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
subsd  (%rax),%xmm1
mulsd  %xmm1,%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    1167 <Px+0x67>
movsd  -0x20(%rbp),%xmm0
addsd  -0x28(%rbp),%xmm0
movsd  %xmm0,-0x20(%rbp)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    113f <Px+0x3f>
movsd  -0x20(%rbp),%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<Px>:
push   %rbx
movapd %xmm0,%xmm1
mov    (%rdi),%r9
movsd  0x8(%r9),%xmm0
cmp    $0x3,%edx
jl     11ee <Px+0xee>
mov    %edx,%r8d
mov    $0x1,%ecx
mov    $0x2,%r11d
xor    %r10d,%r10d
jmp    1149 <Px+0x49>
nopw   0x0(%rax,%rax,1)
addsd  %xmm2,%xmm0
add    $0x1,%rcx
add    $0x1,%r11
add    $0x1,%r10
cmp    %r8,%r11
je     11ee <Px+0xee>
movsd  (%r9,%r11,8),%xmm2
cmp    $0x3,%r10
jae    1160 <Px+0x60>
xor    %eax,%eax
jmp    11bc <Px+0xbc>
nopl   0x0(%rax)
mov    %rcx,%rdx
and    $0xfffffffffffffffc,%rdx
xor    %eax,%eax
nopl   0x0(%rax)
mov    (%rdi,%rax,8),%rsi
mov    0x8(%rdi,%rax,8),%rbx
movapd %xmm1,%xmm3
subsd  (%rsi),%xmm3
movapd %xmm1,%xmm4
subsd  (%rbx),%xmm4
mulsd  %xmm2,%xmm3
mov    0x10(%rdi,%rax,8),%rsi
movapd %xmm1,%xmm5
subsd  (%rsi),%xmm5
mulsd  %xmm3,%xmm4
mov    0x18(%rdi,%rax,8),%rsi
movapd %xmm1,%xmm2
subsd  (%rsi),%xmm2
mulsd  %xmm4,%xmm5
mulsd  %xmm5,%xmm2
add    $0x4,%rax
cmp    %rax,%rdx
jne    1170 <Px+0x70>
test   $0x3,%cl
je     1130 <Px+0x30>
mov    %ecx,%edx
and    $0x3,%edx
lea    (%rdi,%rax,8),%rax
xor    %esi,%esi
mov    (%rax,%rsi,8),%rbx
movapd %xmm1,%xmm3
subsd  (%rbx),%xmm3
mulsd  %xmm3,%xmm2
add    $0x1,%rsi
cmp    %rsi,%rdx
jne    11d0 <Px+0xd0>
jmp    1130 <Px+0x30>
pop    %rbx
ret

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

LLVM IR (-O2):
define double @Px(double** nocapture %0, double %1, i32 %2, i32 %3) {
%5 = load double*, double** %0
%6 = getelementptr inbounds double, double* %5, i64 1
%7 = load double, double* %6
%8 = icmp sgt i32 %3, 2
br i1 %8, label %9, label %76
9: ; preds = %4
%10 = zext i32 %3 to i64
br label %11
11: ; preds = %9, %69
%12 = phi i64 [ 0, %9 ], [ %75, %69 ]
%13 = phi i64 [ 2, %9 ], [ %73, %69 ]
%14 = phi i64 [ 1, %9 ], [ %72, %69 ]
%15 = phi double [ %7, %9 ], [ %71, %69 ]
%16 = getelementptr inbounds double, double* %5, i64 %13
%17 = load double, double* %16
%18 = and i64 %14, 3
%19 = icmp ult i64 %12, 3
br i1 %19, label %52, label %20
20: ; preds = %11
%21 = and i64 %14, 9223372036854775804
br label %22
22: ; preds = %22, %20
%23 = phi i64 [ 0, %20 ], [ %49, %22 ]
%24 = phi double [ %17, %20 ], [ %48, %22 ]
%25 = phi i64 [ 0, %20 ], [ %50, %22 ]
%26 = getelementptr inbounds double*, double** %0, i64 %23
%27 = load double*, double** %26
%28 = load double, double* %27
%29 = fsub double %1, %28
%30 = fmul double %24, %29
%31 = or i64 %23, 1
%32 = getelementptr inbounds double*, double** %0, i64 %31
%33 = load double*, double** %32
%34 = load double, double* %33
%35 = fsub double %1, %34
%36 = fmul double %30, %35
%37 = or i64 %23, 2
%38 = getelementptr inbounds double*, double** %0, i64 %37
%39 = load double*, double** %38
%40 = load double, double* %39
%41 = fsub double %1, %40
%42 = fmul double %36, %41
%43 = or i64 %23, 3
%44 = getelementptr inbounds double*, double** %0, i64 %43
%45 = load double*, double** %44
%46 = load double, double* %45
%47 = fsub double %1, %46
%48 = fmul double %42, %47
%49 = add nuw nsw i64 %23, 4
%50 = add i64 %25, 4
%51 = icmp eq i64 %50, %21
br i1 %51, label %52, label %22
52: ; preds = %22, %11
%53 = phi double [ undef, %11 ], [ %48, %22 ]
%54 = phi i64 [ 0, %11 ], [ %49, %22 ]
%55 = phi double [ %17, %11 ], [ %48, %22 ]
%56 = icmp eq i64 %18, 0
br i1 %56, label %69, label %57
57: ; preds = %52, %57
%58 = phi i64 [ %66, %57 ], [ %54, %52 ]
%59 = phi double [ %65, %57 ], [ %55, %52 ]
%60 = phi i64 [ %67, %57 ], [ 0, %52 ]
%61 = getelementptr inbounds double*, double** %0, i64 %58
%62 = load double*, double** %61
%63 = load double, double* %62
%64 = fsub double %1, %63
%65 = fmul double %59, %64
%66 = add nuw nsw i64 %58, 1
%67 = add i64 %60, 1
%68 = icmp eq i64 %67, %18
br i1 %68, label %69, label %57
69: ; preds = %57, %52
%70 = phi double [ %53, %52 ], [ %65, %57 ]
%71 = fadd double %15, %70
%72 = add nuw nsw i64 %14, 1
%73 = add nuw nsw i64 %13, 1
%74 = icmp eq i64 %73, %10
%75 = add i64 %12, 1
br i1 %74, label %76, label %11
76: ; preds = %69, %4
%77 = phi double [ %7, %4 ], [ %71, %69 ]
ret double %77
}