double permDiagProduct(double **P, int *p, int d) {
  int i;
  double prod = 1.0;
  for (i = 0; i < d; i++)
    prod = prod * P[i][p[i]];
  return (prod);
}


x86 assembly (clang, -O0):
<permDiagProduct>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
movsd  0xee9(%rip),%xmm0
movsd  %xmm0,-0x20(%rbp)
movl   $0x0,-0x18(%rbp)
mov    -0x18(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    1164 <permDiagProduct+0x64>
movsd  -0x20(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x18(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    -0x10(%rbp),%rcx
movslq -0x18(%rbp),%rdx
movslq (%rcx,%rdx,4),%rcx
mulsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x20(%rbp)
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    1123 <permDiagProduct+0x23>
movsd  -0x20(%rbp),%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<permDiagProduct>:
test   %edx,%edx
jle    1124 <permDiagProduct+0x24>
mov    %edx,%r9d
lea    -0x1(%r9),%rcx
mov    %r9d,%r8d
and    $0x3,%r8d
cmp    $0x3,%rcx
jae    112d <permDiagProduct+0x2d>
movsd  0xee0(%rip),%xmm0
xor    %ecx,%ecx
jmp    1184 <permDiagProduct+0x84>
movsd  0xed4(%rip),%xmm0
ret
and    $0xfffffffc,%r9d
movsd  0xec7(%rip),%xmm0
xor    %ecx,%ecx
nopl   0x0(%rax,%rax,1)
movslq (%rsi,%rcx,4),%rax
mov    (%rdi,%rcx,8),%rdx
mov    0x8(%rdi,%rcx,8),%r10
mulsd  (%rdx,%rax,8),%xmm0
movslq 0x4(%rsi,%rcx,4),%rax
mulsd  (%r10,%rax,8),%xmm0
mov    0x10(%rdi,%rcx,8),%rax
movslq 0x8(%rsi,%rcx,4),%rdx
mulsd  (%rax,%rdx,8),%xmm0
mov    0x18(%rdi,%rcx,8),%rax
movslq 0xc(%rsi,%rcx,4),%rdx
mulsd  (%rax,%rdx,8),%xmm0
add    $0x4,%rcx
cmp    %rcx,%r9
jne    1140 <permDiagProduct+0x40>
test   %r8,%r8
je     11b6 <permDiagProduct+0xb6>
lea    (%rsi,%rcx,4),%rdx
lea    (%rdi,%rcx,8),%rcx
xor    %esi,%esi
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
mov    (%rcx,%rsi,8),%rax
movslq (%rdx,%rsi,4),%rdi
mulsd  (%rax,%rdi,8),%xmm0
add    $0x1,%rsi
cmp    %rsi,%r8
jne    11a0 <permDiagProduct+0xa0>
ret

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

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