#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*/ assert(int);
void dPidParam_pi(const double *pi, double *dpidparam, const int npi) {
  assert(NULL != pi);
  assert(NULL != dpidparam);
  assert(npi >= 0);
  for (int i = 0; i < npi - 1; i++) {
    for (int j = 0; j < npi; j++) {
      if (0 == j) {
        dpidparam[i * npi + j] = -pi[0] * pi[0];
        continue;
      }
      if (j - 1 == i) {
        dpidparam[i * npi + j] = (1. - pi[j]) * pi[0];
        continue;
      }
      dpidparam[i * npi + j] = -pi[j] * pi[0];
    }
  }
}


x86 assembly (clang, -O0):
<dPidParam_pi>:
push   %rbp
mov    %rsp,%rbp
sub    $0x20,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
xor    %eax,%eax
cmp    -0x8(%rbp),%rax
setne  %al
and    $0x1,%al
movzbl %al,%edi
call   1030 <assert@plt>
xor    %eax,%eax
cmp    -0x10(%rbp),%rax
setne  %al
and    $0x1,%al
movzbl %al,%edi
call   1030 <assert@plt>
cmpl   $0x0,-0x14(%rbp)
setge  %al
and    $0x1,%al
movzbl %al,%edi
call   1030 <assert@plt>
movl   $0x0,-0x18(%rbp)
mov    -0x18(%rbp),%eax
mov    -0x14(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jge    127c <dPidParam_pi+0x16c>
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    1269 <dPidParam_pi+0x159>
xor    %eax,%eax
cmp    -0x1c(%rbp),%eax
jne    11d2 <dPidParam_pi+0xc2>
mov    -0x8(%rbp),%rax
movsd  (%rax),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mov    -0x8(%rbp),%rax
mulsd  (%rax),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x18(%rbp),%ecx
imul   -0x14(%rbp),%ecx
add    -0x1c(%rbp),%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    125b <dPidParam_pi+0x14b>
mov    -0x1c(%rbp),%eax
sub    $0x1,%eax
cmp    -0x18(%rbp),%eax
jne    1219 <dPidParam_pi+0x109>
mov    -0x8(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsd  0xe0f(%rip),%xmm0
subsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
mulsd  (%rax),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x18(%rbp),%ecx
imul   -0x14(%rbp),%ecx
add    -0x1c(%rbp),%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    125b <dPidParam_pi+0x14b>
mov    -0x8(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mov    -0x8(%rbp),%rax
mulsd  (%rax),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x18(%rbp),%ecx
imul   -0x14(%rbp),%ecx
add    -0x1c(%rbp),%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1179 <dPidParam_pi+0x69>
jmp    126e <dPidParam_pi+0x15e>
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    1161 <dPidParam_pi+0x51>
add    $0x20,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<dPidParam_pi>:
push   %r15
push   %r14
push   %rbx
mov    %edx,%r15d
mov    %rsi,%r14
mov    %rdi,%rbx
xor    %edi,%edi
test   %rbx,%rbx
setne  %dil
call   1030 <assert@plt>
xor    %edi,%edi
test   %r14,%r14
setne  %dil
call   1030 <assert@plt>
mov    %r15d,%edi
not    %edi
shr    $0x1f,%edi
call   1030 <assert@plt>
cmp    $0x2,%r15d
jl     11e3 <dPidParam_pi+0xd3>
mov    %r15d,%r8d
add    $0xffffffff,%r15d
lea    0x8(%r14),%rcx
lea    0x0(,%r8,8),%rdx
lea    -0x1(%r8),%rsi
xor    %edi,%edi
movapd 0xe8e(%rip),%xmm0
movsd  0xe96(%rip),%xmm1
jmp    118c <dPidParam_pi+0x7c>
nopl   0x0(%rax)
add    $0x1,%rdi
add    %rdx,%rcx
cmp    %r15,%rdi
je     11e3 <dPidParam_pi+0xd3>
mov    %rdi,%rax
imul   %r8,%rax
movsd  (%rbx),%xmm2
movapd %xmm2,%xmm3
xorpd  %xmm0,%xmm3
mulsd  %xmm2,%xmm3
movsd  %xmm3,(%r14,%rax,8)
xor    %eax,%eax
jmp    11ca <dPidParam_pi+0xba>
nopl   (%rax)
xorpd  %xmm0,%xmm2
movsd  (%rbx),%xmm3
mulsd  %xmm3,%xmm2
movsd  %xmm2,(%rcx,%rax,8)
add    $0x1,%rax
cmp    %rax,%rsi
je     1180 <dPidParam_pi+0x70>
movsd  0x8(%rbx,%rax,8),%xmm2
cmp    %rax,%rdi
jne    11b0 <dPidParam_pi+0xa0>
movapd %xmm1,%xmm3
subsd  %xmm2,%xmm3
movsd  (%rbx),%xmm2
jmp    11b8 <dPidParam_pi+0xa8>
pop    %rbx
pop    %r14
pop    %r15
ret

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

LLVM IR (-O2):
define void @dPidParam_pi(double* %0, double* writeonly %1, i32 %2) {
%4 = icmp ne double* %0, null
%5 = zext i1 %4 to i32
%6 = tail call i32 @assert(i32 %5)
%7 = icmp ne double* %1, null
%8 = zext i1 %7 to i32
%9 = tail call i32 @assert(i32 %8)
%10 = xor i32 %2, -1
%11 = lshr i32 %10, 31
%12 = tail call i32 @assert(i32 %11)
%13 = icmp sgt i32 %2, 1
br i1 %13, label %14, label %26
14: ; preds = %3
%15 = add nsw i32 %2, -1
%16 = zext i32 %2 to i64
%17 = zext i32 %15 to i64
%18 = zext i32 %2 to i64
br label %19
19: ; preds = %27, %14
%20 = phi i64 [ 0, %14 ], [ %28, %27 ]
%21 = mul nsw i64 %20, %16
%22 = getelementptr inbounds double, double* %1, i64 %21
%23 = load double, double* %0
%24 = fneg double %23
%25 = fmul double %23, %24
store double %25, double* %22
br label %30
26: ; preds = %27, %3
ret void
27: ; preds = %42
%28 = add nuw nsw i64 %20, 1
%29 = icmp eq i64 %28, %17
br i1 %29, label %26, label %19
30: ; preds = %19, %42
%31 = phi i64 [ %48, %42 ], [ 1, %19 ]
%32 = add nsw i64 %31, -1
%33 = icmp eq i64 %32, %20
%34 = getelementptr inbounds double, double* %0, i64 %31
%35 = load double, double* %34
br i1 %33, label %36, label %39
36: ; preds = %30
%37 = fsub double 1.000000e+00, %35
%38 = load double, double* %0
br label %42
39: ; preds = %30
%40 = fneg double %35
%41 = load double, double* %0
br label %42
42: ; preds = %39, %36
%43 = phi double [ %40, %39 ], [ %38, %36 ]
%44 = phi double [ %41, %39 ], [ %37, %36 ]
%45 = fmul double %44, %43
%46 = add nuw nsw i64 %31, %21
%47 = getelementptr inbounds double, double* %1, i64 %46
store double %45, double* %47
%48 = add nuw nsw i64 %31, 1
%49 = icmp eq i64 %48, %18
br i1 %49, label %27, label %30
}