#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 */
double exp(double);
double log(double);
void pmfLDPlat(double m, double e, double *eta, int etaLen, double *prob) {
  double odds;
  int n, j;
  odds = e / (1 - e);
  for (n = 1; n <= etaLen - 1; n++)
    prob[n] = 0;
  prob[0] = exp(m * odds * log(e));
  for (n = 1; n <= etaLen - 1; n++) {
    for (j = 1; j <= n; j++) {
      prob[n] = prob[n] + j * eta[j] * prob[n - j];
    }
    prob[n] = prob[n] * m * odds / n;
  };
}


x86 assembly (clang, -O0):
<pmfLDPlat>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
movsd  %xmm0,-0x8(%rbp)
movsd  %xmm1,-0x10(%rbp)
mov    %rdi,-0x18(%rbp)
mov    %esi,-0x1c(%rbp)
mov    %rdx,-0x28(%rbp)
movsd  -0x10(%rbp),%xmm0
movsd  0xeb6(%rip),%xmm1
subsd  -0x10(%rbp),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x30(%rbp)
movl   $0x1,-0x34(%rbp)
mov    -0x34(%rbp),%eax
mov    -0x1c(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jg     118e <pmfLDPlat+0x6e>
mov    -0x28(%rbp),%rax
movslq -0x34(%rbp),%rcx
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    115f <pmfLDPlat+0x3f>
movsd  -0x8(%rbp),%xmm0
mulsd  -0x30(%rbp),%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  -0x10(%rbp),%xmm0
call   1040 <log@plt>
movaps %xmm0,%xmm1
movsd  -0x40(%rbp),%xmm0
mulsd  %xmm1,%xmm0
call   1030 <exp@plt>
mov    -0x28(%rbp),%rax
movsd  %xmm0,(%rax)
movl   $0x1,-0x34(%rbp)
mov    -0x34(%rbp),%eax
mov    -0x1c(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jg     127a <pmfLDPlat+0x15a>
movl   $0x1,-0x38(%rbp)
mov    -0x38(%rbp),%eax
cmp    -0x34(%rbp),%eax
jg     123f <pmfLDPlat+0x11f>
mov    -0x28(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
cvtsi2sdl -0x38(%rbp),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x38(%rbp),%rcx
mulsd  (%rax,%rcx,8),%xmm0
mov    -0x28(%rbp),%rax
mov    -0x34(%rbp),%ecx
sub    -0x38(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
mov    -0x28(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    11df <pmfLDPlat+0xbf>
mov    -0x28(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mulsd  -0x8(%rbp),%xmm0
mulsd  -0x30(%rbp),%xmm0
cvtsi2sdl -0x34(%rbp),%xmm1
divsd  %xmm1,%xmm0
mov    -0x28(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    11c7 <pmfLDPlat+0xa7>
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<pmfLDPlat>:
push   %r15
push   %r14
push   %r12
push   %rbx
sub    $0x28,%rsp
mov    %rdx,%r14
movsd  0xeba(%rip),%xmm2
subsd  %xmm1,%xmm2
movapd %xmm1,%xmm3
divsd  %xmm2,%xmm3
cmp    $0x2,%esi
jl     12b6 <pmfLDPlat+0x186>
mov    %esi,%r15d
mov    %rdi,%rbx
lea    0x8(%r14),%rdi
lea    -0x1(%r15),%edx
shl    $0x3,%rdx
xor    %r12d,%r12d
xor    %esi,%esi
movsd  %xmm3,0x8(%rsp)
movsd  %xmm0,0x10(%rsp)
movsd  %xmm1,0x18(%rsp)
call   1030 <memset@plt>
movsd  0x8(%rsp),%xmm0
mulsd  0x10(%rsp),%xmm0
movsd  %xmm0,0x20(%rsp)
movsd  0x18(%rsp),%xmm0
call   1050 <log@plt>
mulsd  0x20(%rsp),%xmm0
call   1040 <exp@plt>
movsd  0x10(%rsp),%xmm3
movsd  0x8(%rsp),%xmm2
movsd  %xmm0,(%r14)
mov    %r15d,%r8d
mov    $0x1,%ecx
mov    %r14,%r9
jmp    11fa <pmfLDPlat+0xca>
nop
mulsd  %xmm3,%xmm0
mulsd  %xmm2,%xmm0
xorps  %xmm1,%xmm1
cvtsi2sd %ecx,%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,(%r14,%rcx,8)
add    $0x1,%rcx
add    $0x8,%r9
cmp    %r8,%rcx
je     12d9 <pmfLDPlat+0x1a9>
mov    %r12,%rdx
add    $0x1,%r12
movsd  (%r14,%rcx,8),%xmm0
test   %rdx,%rdx
je     1280 <pmfLDPlat+0x150>
mov    %r12,%rdi
and    $0xfffffffffffffffe,%rdi
mov    $0x1,%esi
mov    %r9,%rdx
nopl   0x0(%rax,%rax,1)
xorps  %xmm1,%xmm1
cvtsi2sd %esi,%xmm1
mulsd  (%rbx,%rsi,8),%xmm1
mulsd  (%rdx),%xmm1
addsd  %xmm0,%xmm1
movsd  %xmm1,(%r14,%rcx,8)
lea    0x1(%rsi),%rax
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
mulsd  0x8(%rbx,%rsi,8),%xmm0
mulsd  -0x8(%rdx),%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,(%r14,%rcx,8)
add    $0x2,%rsi
add    $0xfffffffffffffff0,%rdx
cmp    %rdi,%rax
jne    1220 <pmfLDPlat+0xf0>
test   $0x1,%r12b
je     11d0 <pmfLDPlat+0xa0>
jmp    128f <pmfLDPlat+0x15f>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
mov    $0x1,%esi
test   $0x1,%r12b
je     11d0 <pmfLDPlat+0xa0>
xorps  %xmm1,%xmm1
cvtsi2sd %esi,%xmm1
mulsd  (%rbx,%rsi,8),%xmm1
mov    %rcx,%rax
sub    %rsi,%rax
mulsd  (%r14,%rax,8),%xmm1
addsd  %xmm1,%xmm0
movsd  %xmm0,(%r14,%rcx,8)
jmp    11d0 <pmfLDPlat+0xa0>
mulsd  %xmm0,%xmm3
movsd  %xmm3,0x8(%rsp)
movapd %xmm1,%xmm0
call   1050 <log@plt>
mulsd  0x8(%rsp),%xmm0
call   1040 <exp@plt>
movsd  %xmm0,(%r14)
add    $0x28,%rsp
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
ret

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

LLVM IR (-O2):
define void @pmfLDPlat(double %0, double %1, double* nocapture %2, i32 %3, double* nocapture %4) {
%6 = fsub double 1.000000e+00, %1
%7 = fdiv double %1, %6
%8 = icmp sgt i32 %3, 1
br i1 %8, label %9, label %81
9: ; preds = %5
%10 = getelementptr double, double* %4, i64 1
%11 = bitcast double* %10 to i8*
%12 = add nsw i32 %3, -1
%13 = zext i32 %12 to i64
%14 = shl nuw nsw i64 %13, 3
%15 = fmul double %7, %0
%16 = tail call double @log(double %1)
%17 = fmul double %15, %16
%18 = tail call double @exp(double %17)
store double %18, double* %4
%19 = zext i32 %3 to i64
br label %20
20: ; preds = %9, %71
%21 = phi i64 [ 0, %9 ], [ %80, %71 ]
%22 = phi i64 [ 1, %9 ], [ %78, %71 ]
%23 = add i64 %21, 1
%24 = getelementptr inbounds double, double* %4, i64 %22
%25 = load double, double* %24
%26 = and i64 %23, 1
%27 = icmp eq i64 %21, 0
br i1 %27, label %56, label %28
28: ; preds = %20
%29 = and i64 %23, -2
br label %30
30: ; preds = %30, %28
%31 = phi double [ %25, %28 ], [ %52, %30 ]
%32 = phi i64 [ 1, %28 ], [ %53, %30 ]
%33 = phi i64 [ 0, %28 ], [ %54, %30 ]
%34 = trunc i64 %32 to i32
%35 = sitofp i32 %34 to double
%36 = getelementptr inbounds double, double* %2, i64 %32
%37 = load double, double* %36
%38 = fmul double %37, %35
%39 = sub nsw i64 %22, %32
%40 = getelementptr inbounds double, double* %4, i64 %39
%41 = load double, double* %40
%42 = tail call double @llvm.fmuladd.f64(double %38, double %41, double %31)
store double %42, double* %24
%43 = add nuw nsw i64 %32, 1
%44 = trunc i64 %43 to i32
%45 = sitofp i32 %44 to double
%46 = getelementptr inbounds double, double* %2, i64 %43
%47 = load double, double* %46
%48 = fmul double %47, %45
%49 = sub nsw i64 %22, %43
%50 = getelementptr inbounds double, double* %4, i64 %49
%51 = load double, double* %50
%52 = tail call double @llvm.fmuladd.f64(double %48, double %51, double %42)
store double %52, double* %24
%53 = add nuw nsw i64 %32, 2
%54 = add i64 %33, 2
%55 = icmp eq i64 %54, %29
br i1 %55, label %56, label %30
56: ; preds = %30, %20
%57 = phi double [ undef, %20 ], [ %52, %30 ]
%58 = phi double [ %25, %20 ], [ %52, %30 ]
%59 = phi i64 [ 1, %20 ], [ %53, %30 ]
%60 = icmp eq i64 %26, 0
br i1 %60, label %71, label %61
61: ; preds = %56
%62 = trunc i64 %59 to i32
%63 = sitofp i32 %62 to double
%64 = getelementptr inbounds double, double* %2, i64 %59
%65 = load double, double* %64
%66 = fmul double %65, %63
%67 = sub nsw i64 %22, %59
%68 = getelementptr inbounds double, double* %4, i64 %67
%69 = load double, double* %68
%70 = tail call double @llvm.fmuladd.f64(double %66, double %69, double %58)
store double %70, double* %24
br label %71
71: ; preds = %56, %61
%72 = phi double [ %57, %56 ], [ %70, %61 ]
%73 = fmul double %72, %0
%74 = fmul double %7, %73
%75 = trunc i64 %22 to i32
%76 = sitofp i32 %75 to double
%77 = fdiv double %74, %76
store double %77, double* %24
%78 = add nuw nsw i64 %22, 1
%79 = icmp eq i64 %78, %19
%80 = add i64 %21, 1
br i1 %79, label %86, label %20
81: ; preds = %5
%82 = fmul double %7, %0
%83 = tail call double @log(double %1)
%84 = fmul double %82, %83
%85 = tail call double @exp(double %84)
store double %85, double* %4
br label %86
86: ; preds = %71, %81
ret void
}