#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
int /*<<< orphan*/ fillxc(double *, int, int);
int /*<<< orphan*/ matinv(double *, int, int, double *);
int PtoPi(double P[], double pi[], int n, double *space) {
  int i, j;
  double *T = space;
  for (i = 0; i < n; i++) {
    for (j = 0; j < n; j++)
      T[i * (n + 1) + j] = (double)(i == j) - P[j * n + i];
    T[i * (n + 1) + n] = 0.;
  }
  fillxc(T, 1., n + 1);
  matinv(T, n, n + 1, pi);
  for (i = 0; i < n; i++)
    pi[i] = T[i * (n + 1) + n];
  return (0);
}


x86 assembly (clang, -O0):
<PtoPi>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %rcx,-0x20(%rbp)
mov    -0x20(%rbp),%rax
mov    %rax,-0x30(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    11e2 <PtoPi+0xc2>
movl   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    11b6 <PtoPi+0x96>
mov    -0x24(%rbp),%eax
cmp    -0x28(%rbp),%eax
sete   %al
and    $0x1,%al
movzbl %al,%eax
cvtsi2sd %eax,%xmm0
mov    -0x8(%rbp),%rax
mov    -0x28(%rbp),%ecx
imul   -0x14(%rbp),%ecx
add    -0x24(%rbp),%ecx
movslq %ecx,%rcx
subsd  (%rax,%rcx,8),%xmm0
mov    -0x30(%rbp),%rax
mov    -0x24(%rbp),%ecx
mov    -0x14(%rbp),%edx
add    $0x1,%edx
imul   %edx,%ecx
add    -0x28(%rbp),%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    1159 <PtoPi+0x39>
mov    -0x30(%rbp),%rax
mov    -0x24(%rbp),%ecx
mov    -0x14(%rbp),%edx
add    $0x1,%edx
imul   %edx,%ecx
add    -0x14(%rbp),%ecx
movslq %ecx,%rcx
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1146 <PtoPi+0x26>
mov    -0x30(%rbp),%rdi
mov    -0x14(%rbp),%edx
add    $0x1,%edx
mov    $0x1,%esi
call   1030 <fillxc@plt>
mov    -0x30(%rbp),%rdi
mov    -0x14(%rbp),%esi
mov    -0x14(%rbp),%edx
add    $0x1,%edx
mov    -0x10(%rbp),%rcx
call   1040 <matinv@plt>
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    1255 <PtoPi+0x135>
mov    -0x30(%rbp),%rax
mov    -0x24(%rbp),%ecx
mov    -0x14(%rbp),%edx
add    $0x1,%edx
imul   %edx,%ecx
add    -0x14(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1213 <PtoPi+0xf3>
xor    %eax,%eax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<PtoPi>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x18,%rsp
mov    %rcx,%r15
mov    %edx,%ebp
mov    %rsi,%r14
lea    0x1(%rbp),%ebx
test   %edx,%edx
jle    128f <PtoPi+0x16f>
mov    %rbp,0x10(%rsp)
mov    %ebp,%r12d
mov    %ebx,0xc(%rsp)
mov    %ebx,%r8d
lea    -0x1(%r12),%r13
mov    %r12d,%r11d
and    $0xfffffffe,%r11d
mov    %r12,%rdx
shl    $0x4,%rdx
lea    0x8(%r15),%rsi
lea    0x0(,%r8,8),%r9
xor    %eax,%eax
movsd  0xe87(%rip),%xmm0
mov    %rdi,%r10
jmp    11b7 <PtoPi+0x97>
xchg   %ax,%ax
mov    %rbx,%rcx
imul   %r12,%rcx
add    %rax,%rcx
subsd  (%rdi,%rcx,8),%xmm1
add    %rbp,%rbx
movsd  %xmm1,(%r15,%rbx,8)
add    %r12,%rbp
movq   $0x0,(%r15,%rbp,8)
add    $0x1,%rax
add    $0x8,%r10
add    %r9,%rsi
cmp    %r12,%rax
je     1249 <PtoPi+0x129>
test   %r13,%r13
je     1220 <PtoPi+0x100>
mov    %r10,%rbp
xor    %ebx,%ebx
jmp    11e8 <PtoPi+0xc8>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
subsd  0x0(%rbp,%r12,8),%xmm1
movsd  %xmm1,(%rsi,%rbx,8)
add    $0x2,%rbx
add    %rdx,%rbp
cmp    %r11,%rbx
je     1222 <PtoPi+0x102>
movapd %xmm0,%xmm1
cmp    %rbx,%rax
je     11f5 <PtoPi+0xd5>
xorpd  %xmm1,%xmm1
subsd  0x0(%rbp),%xmm1
movsd  %xmm1,-0x8(%rsi,%rbx,8)
lea    0x1(%rbx),%rcx
movapd %xmm0,%xmm1
cmp    %rcx,%rax
je     11d0 <PtoPi+0xb0>
xorpd  %xmm1,%xmm1
jmp    11d0 <PtoPi+0xb0>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
xor    %ebx,%ebx
mov    %rax,%rbp
imul   %r8,%rbp
test   $0x1,%r12b
je     1198 <PtoPi+0x78>
movapd %xmm0,%xmm1
cmp    %rbx,%rax
je     1180 <PtoPi+0x60>
xorpd  %xmm1,%xmm1
jmp    1180 <PtoPi+0x60>
mov    %r15,%rdi
mov    $0x1,%esi
mov    0xc(%rsp),%ebx
mov    %ebx,%edx
call   1030 <fillxc@plt>
mov    %r15,%rdi
mov    0x10(%rsp),%rbp
mov    %ebp,%esi
mov    %ebx,%edx
mov    %r14,%rcx
call   1040 <matinv@plt>
test   %ebp,%ebp
jle    1365 <PtoPi+0x245>
movslq %ebx,%r9
mov    %r12d,%r8d
and    $0x3,%r8d
cmp    $0x3,%r13
jae    12b2 <PtoPi+0x192>
xor    %edx,%edx
jmp    132b <PtoPi+0x20b>
mov    %r15,%rdi
mov    $0x1,%esi
mov    %ebx,%edx
call   1030 <fillxc@plt>
mov    %r15,%rdi
mov    %ebp,%esi
mov    %ebx,%edx
mov    %r14,%rcx
call   1040 <matinv@plt>
jmp    1365 <PtoPi+0x245>
mov    %r12d,%r10d
and    $0xfffffffc,%r10d
mov    %r9,%rax
shl    $0x4,%rax
lea    0x0(,%r12,8),%rdi
lea    (%rax,%r12,8),%rbp
mov    %r9,%rax
shl    $0x5,%rax
lea    (%r9,%r12,1),%rcx
lea    (%r9,%r9,2),%rdx
lea    (%rdi,%rdx,8),%rbx
xor    %edx,%edx
mov    %r15,%rsi
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
movsd  (%rsi,%rdi,1),%xmm0
movsd  %xmm0,(%r14,%rdx,8)
movsd  (%rsi,%rcx,8),%xmm0
movsd  %xmm0,0x8(%r14,%rdx,8)
movsd  (%rsi,%rbp,1),%xmm0
movsd  %xmm0,0x10(%r14,%rdx,8)
movsd  (%rsi,%rbx,1),%xmm0
movsd  %xmm0,0x18(%r14,%rdx,8)
add    $0x4,%rdx
add    %rax,%rsi
cmp    %rdx,%r10
jne    12f0 <PtoPi+0x1d0>
test   %r8,%r8
je     1365 <PtoPi+0x245>
lea    (%r14,%rdx,8),%rax
imul   %r9,%rdx
add    %r12,%rdx
lea    (%r15,%rdx,8),%rcx
shl    $0x3,%r9
xor    %edx,%edx
cs nopw 0x0(%rax,%rax,1)
nop
movsd  (%rcx),%xmm0
movsd  %xmm0,(%rax,%rdx,8)
add    $0x1,%rdx
add    %r9,%rcx
cmp    %rdx,%r8
jne    1350 <PtoPi+0x230>
xor    %eax,%eax
add    $0x18,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define i32 @PtoPi(double* %0, double* %1, i32 %2, double* %3) {
%5 = alloca double*
%6 = alloca double*
%7 = alloca i32
%8 = alloca double*
%9 = alloca i32
%10 = alloca i32
%11 = alloca double*
store double* %0, double** %5
store double* %1, double** %6
store i32 %2, i32* %7
store double* %3, double** %8
%12 = load double*, double** %8
store double* %12, double** %11
store i32 0, i32* %9
br label %13
13: ; preds = %60, %4
%14 = load i32, i32* %9
%15 = load i32, i32* %7
%16 = icmp slt i32 %14, %15
br i1 %16, label %17, label %63
17: ; preds = %13
store i32 0, i32* %10
br label %18
18: ; preds = %47, %17
%19 = load i32, i32* %10
%20 = load i32, i32* %7
%21 = icmp slt i32 %19, %20
br i1 %21, label %22, label %50
22: ; preds = %18
%23 = load i32, i32* %9
%24 = load i32, i32* %10
%25 = icmp eq i32 %23, %24
%26 = zext i1 %25 to i32
%27 = sitofp i32 %26 to double
%28 = load double*, double** %5
%29 = load i32, i32* %10
%30 = load i32, i32* %7
%31 = mul nsw i32 %29, %30
%32 = load i32, i32* %9
%33 = add nsw i32 %31, %32
%34 = sext i32 %33 to i64
%35 = getelementptr inbounds double, double* %28, i64 %34
%36 = load double, double* %35
%37 = fsub double %27, %36
%38 = load double*, double** %11
%39 = load i32, i32* %9
%40 = load i32, i32* %7
%41 = add nsw i32 %40, 1
%42 = mul nsw i32 %39, %41
%43 = load i32, i32* %10
%44 = add nsw i32 %42, %43
%45 = sext i32 %44 to i64
%46 = getelementptr inbounds double, double* %38, i64 %45
store double %37, double* %46
br label %47
47: ; preds = %22
%48 = load i32, i32* %10
%49 = add nsw i32 %48, 1
store i32 %49, i32* %10
br label %18
50: ; preds = %18
%51 = load double*, double** %11
%52 = load i32, i32* %9
%53 = load i32, i32* %7
%54 = add nsw i32 %53, 1
%55 = mul nsw i32 %52, %54
%56 = load i32, i32* %7
%57 = add nsw i32 %55, %56
%58 = sext i32 %57 to i64
%59 = getelementptr inbounds double, double* %51, i64 %58
store double 0.000000e+00, double* %59
br label %60
60: ; preds = %50
%61 = load i32, i32* %9
%62 = add nsw i32 %61, 1
store i32 %62, i32* %9
br label %13
63: ; preds = %13
%64 = load double*, double** %11
%65 = load i32, i32* %7
%66 = add nsw i32 %65, 1
%67 = call i32 @fillxc(double* %64, i32 1, i32 %66)
%68 = load double*, double** %11
%69 = load i32, i32* %7
%70 = load i32, i32* %7
%71 = add nsw i32 %70, 1
%72 = load double*, double** %6
%73 = call i32 @matinv(double* %68, i32 %69, i32 %71, double* %72)
store i32 0, i32* %9
br label %74
74: ; preds = %93, %63
%75 = load i32, i32* %9
%76 = load i32, i32* %7
%77 = icmp slt i32 %75, %76
br i1 %77, label %78, label %96
78: ; preds = %74
%79 = load double*, double** %11
%80 = load i32, i32* %9
%81 = load i32, i32* %7
%82 = add nsw i32 %81, 1
%83 = mul nsw i32 %80, %82
%84 = load i32, i32* %7
%85 = add nsw i32 %83, %84
%86 = sext i32 %85 to i64
%87 = getelementptr inbounds double, double* %79, i64 %86
%88 = load double, double* %87
%89 = load double*, double** %6
%90 = load i32, i32* %9
%91 = sext i32 %90 to i64
%92 = getelementptr inbounds double, double* %89, i64 %91
store double %88, double* %92
br label %93
93: ; preds = %78
%94 = load i32, i32* %9
%95 = add nsw i32 %94, 1
store i32 %95, i32* %9
br label %74
96: ; preds = %74
ret i32 0
}

LLVM IR (-O2):
define i32 @PtoPi(double* nocapture %0, double* %1, i32 %2, double* %3) {
%5 = icmp sgt i32 %2, 0
%6 = add nsw i32 %2, 1
br i1 %5, label %7, label %100
7: ; preds = %4
%8 = zext i32 %2 to i64
%9 = zext i32 %6 to i64
%10 = zext i32 %2 to i64
%11 = add nsw i64 %10, -1
%12 = and i64 %10, 1
%13 = icmp eq i64 %11, 0
%14 = and i64 %10, 4294967294
%15 = icmp eq i64 %12, 0
br label %16
16: ; preds = %56, %7
%17 = phi i64 [ 0, %7 ], [ %59, %56 ]
%18 = mul nsw i64 %17, %9
br i1 %13, label %44, label %19
19: ; preds = %16, %19
%20 = phi i64 [ %41, %19 ], [ 0, %16 ]
%21 = phi i64 [ %42, %19 ], [ 0, %16 ]
%22 = icmp eq i64 %17, %20
%23 = uitofp i1 %22 to double
%24 = mul nsw i64 %20, %8
%25 = add nuw nsw i64 %24, %17
%26 = getelementptr inbounds double, double* %0, i64 %25
%27 = load double, double* %26
%28 = fsub double %23, %27
%29 = add nuw nsw i64 %20, %18
%30 = getelementptr inbounds double, double* %3, i64 %29
store double %28, double* %30
%31 = or i64 %20, 1
%32 = icmp eq i64 %17, %31
%33 = uitofp i1 %32 to double
%34 = mul nsw i64 %31, %8
%35 = add nuw nsw i64 %34, %17
%36 = getelementptr inbounds double, double* %0, i64 %35
%37 = load double, double* %36
%38 = fsub double %33, %37
%39 = add nuw nsw i64 %31, %18
%40 = getelementptr inbounds double, double* %3, i64 %39
store double %38, double* %40
%41 = add nuw nsw i64 %20, 2
%42 = add i64 %21, 2
%43 = icmp eq i64 %42, %14
br i1 %43, label %44, label %19
44: ; preds = %19, %16
%45 = phi i64 [ 0, %16 ], [ %41, %19 ]
br i1 %15, label %56, label %46
46: ; preds = %44
%47 = icmp eq i64 %17, %45
%48 = uitofp i1 %47 to double
%49 = mul nsw i64 %45, %8
%50 = add nuw nsw i64 %49, %17
%51 = getelementptr inbounds double, double* %0, i64 %50
%52 = load double, double* %51
%53 = fsub double %48, %52
%54 = add nuw nsw i64 %45, %18
%55 = getelementptr inbounds double, double* %3, i64 %54
store double %53, double* %55
br label %56
56: ; preds = %44, %46
%57 = add nuw nsw i64 %18, %8
%58 = getelementptr inbounds double, double* %3, i64 %57
store double 0.000000e+00, double* %58
%59 = add nuw nsw i64 %17, 1
%60 = icmp eq i64 %59, %10
br i1 %60, label %61, label %16
61: ; preds = %56
%62 = tail call i32 @fillxc(double* %3, i32 1, i32 %6)
%63 = tail call i32 @matinv(double* %3, i32 %2, i32 %6, double* %1)
br i1 %5, label %64, label %117
64: ; preds = %61
%65 = sext i32 %6 to i64
%66 = zext i32 %2 to i64
%67 = and i64 %10, 3
%68 = icmp ult i64 %11, 3
br i1 %68, label %103, label %69
69: ; preds = %64
%70 = and i64 %10, 4294967292
br label %71
71: ; preds = %71, %69
%72 = phi i64 [ 0, %69 ], [ %97, %71 ]
%73 = phi i64 [ 0, %69 ], [ %98, %71 ]
%74 = mul nsw i64 %72, %65
%75 = add nsw i64 %74, %66
%76 = getelementptr inbounds double, double* %3, i64 %75
%77 = load double, double* %76
%78 = getelementptr inbounds double, double* %1, i64 %72
store double %77, double* %78
%79 = or i64 %72, 1
%80 = mul nsw i64 %79, %65
%81 = add nsw i64 %80, %66
%82 = getelementptr inbounds double, double* %3, i64 %81
%83 = load double, double* %82
%84 = getelementptr inbounds double, double* %1, i64 %79
store double %83, double* %84
%85 = or i64 %72, 2
%86 = mul nsw i64 %85, %65
%87 = add nsw i64 %86, %66
%88 = getelementptr inbounds double, double* %3, i64 %87
%89 = load double, double* %88
%90 = getelementptr inbounds double, double* %1, i64 %85
store double %89, double* %90
%91 = or i64 %72, 3
%92 = mul nsw i64 %91, %65
%93 = add nsw i64 %92, %66
%94 = getelementptr inbounds double, double* %3, i64 %93
%95 = load double, double* %94
%96 = getelementptr inbounds double, double* %1, i64 %91
store double %95, double* %96
%97 = add nuw nsw i64 %72, 4
%98 = add i64 %73, 4
%99 = icmp eq i64 %98, %70
br i1 %99, label %103, label %71
100: ; preds = %4
%101 = tail call i32 @fillxc(double* %3, i32 1, i32 %6)
%102 = tail call i32 @matinv(double* %3, i32 %2, i32 %6, double* %1)
br label %117
103: ; preds = %71, %64
%104 = phi i64 [ 0, %64 ], [ %97, %71 ]
%105 = icmp eq i64 %67, 0
br i1 %105, label %117, label %106
106: ; preds = %103, %106
%107 = phi i64 [ %114, %106 ], [ %104, %103 ]
%108 = phi i64 [ %115, %106 ], [ 0, %103 ]
%109 = mul nsw i64 %107, %65
%110 = add nsw i64 %109, %66
%111 = getelementptr inbounds double, double* %3, i64 %110
%112 = load double, double* %111
%113 = getelementptr inbounds double, double* %1, i64 %107
store double %112, double* %113
%114 = add nuw nsw i64 %107, 1
%115 = add i64 %108, 1
%116 = icmp eq i64 %115, %67
br i1 %116, label %117, label %106
117: ; preds = %103, %106, %100, %61
ret i32 0
}