#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 */
float incbetf(float, float, float);
int /*<<< orphan*/ mtherrf(char *, int);
double powf(double, float);
float bdtrcf(int k, int n, float pp) {
  float p, dk, dn;
  p = pp;
  if ((p < 0.0) || (p > 1.0))
    goto domerr;
  if (k < 0)
    return (1.0);
  if (n < k) {
  domerr:
    mtherrf("bdtrcf", 1);
    return (0.0);
  }
  if (k == n)
    return (0.0);
  dn = n - k;
  if (k == 0) {
    dk = 1.0 - powf(1.0 - p, dn);
  } else {
    dk = k + 1;
    dk = incbetf(dk, dn, p);
  }
  return (dk);
}


x86 assembly (clang, -O0):
<bdtrcf>:
push   %rbp
mov    %rsp,%rbp
sub    $0x20,%rsp
mov    %edi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
movss  %xmm0,-0x10(%rbp)
movss  -0x10(%rbp),%xmm0
movss  %xmm0,-0x14(%rbp)
movss  -0x14(%rbp),%xmm0
cvtss2sd %xmm0,%xmm1
xorps  %xmm0,%xmm0
ucomisd %xmm1,%xmm0
ja     117e <bdtrcf+0x4e>
movss  -0x14(%rbp),%xmm0
cvtss2sd %xmm0,%xmm0
movsd  0xe8c(%rip),%xmm1
ucomisd %xmm1,%xmm0
jbe    1183 <bdtrcf+0x53>
jmp    11b0 <bdtrcf+0x80>
cmpl   $0x0,-0x8(%rbp)
jge    119f <bdtrcf+0x6f>
movss  0xe73(%rip),%xmm0
movss  %xmm0,-0x4(%rbp)
jmp    126e <bdtrcf+0x13e>
mov    -0xc(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    11ce <bdtrcf+0x9e>
jmp    11b0 <bdtrcf+0x80>
lea    0xe55(%rip),%rdi
mov    $0x1,%esi
call   1050 <mtherrf@plt>
xorps  %xmm0,%xmm0
movss  %xmm0,-0x4(%rbp)
jmp    126e <bdtrcf+0x13e>
mov    -0x8(%rbp),%eax
cmp    -0xc(%rbp),%eax
jne    11e7 <bdtrcf+0xb7>
xorps  %xmm0,%xmm0
movss  %xmm0,-0x4(%rbp)
jmp    126e <bdtrcf+0x13e>
mov    -0xc(%rbp),%eax
sub    -0x8(%rbp),%eax
cvtsi2ss %eax,%xmm0
movss  %xmm0,-0x1c(%rbp)
cmpl   $0x0,-0x8(%rbp)
jne    123c <bdtrcf+0x10c>
movss  -0x14(%rbp),%xmm0
cvtss2sd %xmm0,%xmm1
movsd  0xdef(%rip),%xmm0
subsd  %xmm1,%xmm0
movss  -0x1c(%rbp),%xmm1
call   1030 <powf@plt>
movaps %xmm0,%xmm1
movsd  0xdd6(%rip),%xmm0
subsd  %xmm1,%xmm0
cvtsd2ss %xmm0,%xmm0
movss  %xmm0,-0x18(%rbp)
jmp    1264 <bdtrcf+0x134>
mov    -0x8(%rbp),%eax
add    $0x1,%eax
cvtsi2ss %eax,%xmm0
movss  %xmm0,-0x18(%rbp)
movss  -0x18(%rbp),%xmm0
movss  -0x1c(%rbp),%xmm1
movss  -0x14(%rbp),%xmm2
call   1040 <incbetf@plt>
movss  %xmm0,-0x18(%rbp)
movss  -0x18(%rbp),%xmm0
movss  %xmm0,-0x4(%rbp)
movss  -0x4(%rbp),%xmm0
add    $0x20,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<bdtrcf>:
push   %rax
movaps %xmm0,%xmm2
xorps  %xmm0,%xmm0
ucomiss %xmm2,%xmm0
ja     114d <bdtrcf+0x1d>
ucomiss 0xebd(%rip),%xmm2
ja     114d <bdtrcf+0x1d>
test   %edi,%edi
js     1163 <bdtrcf+0x33>
sub    %edi,%esi
jge    116d <bdtrcf+0x3d>
lea    0xebc(%rip),%rdi
mov    $0x1,%esi
call   1050 <mtherrf@plt>
xorps  %xmm0,%xmm0
pop    %rax
ret
movss  0xe95(%rip),%xmm0
pop    %rax
ret
xorps  %xmm0,%xmm0
je     11b2 <bdtrcf+0x82>
cvtsi2ss %esi,%xmm1
test   %edi,%edi
je     118a <bdtrcf+0x5a>
add    $0x1,%edi
xorps  %xmm0,%xmm0
cvtsi2ss %edi,%xmm0
pop    %rax
jmp    1040 <incbetf@plt>
cvtss2sd %xmm2,%xmm2
movsd  0xe72(%rip),%xmm0
subsd  %xmm2,%xmm0
call   1030 <powf@plt>
movsd  0xe61(%rip),%xmm1
subsd  %xmm0,%xmm1
xorps  %xmm0,%xmm0
cvtsd2ss %xmm1,%xmm0
pop    %rax
ret

LLVM IR (-O0):
@.str = [7 x i8] c"bdtrcf\00"
define float @bdtrcf(i32 %0, i32 %1, float %2) {
%4 = alloca float
%5 = alloca i32
%6 = alloca i32
%7 = alloca float
%8 = alloca float
%9 = alloca float
%10 = alloca float
store i32 %0, i32* %5
store i32 %1, i32* %6
store float %2, float* %7
%11 = load float, float* %7
store float %11, float* %8
%12 = load float, float* %8
%13 = fpext float %12 to double
%14 = fcmp olt double %13, 0.000000e+00
br i1 %14, label %19, label %15
15: ; preds = %3
%16 = load float, float* %8
%17 = fpext float %16 to double
%18 = fcmp ogt double %17, 1.000000e+00
br i1 %18, label %19, label %20
19: ; preds = %15, %3
br label %29
20: ; preds = %15
%21 = load i32, i32* %5
%22 = icmp slt i32 %21, 0
br i1 %22, label %23, label %24
23: ; preds = %20
store float 1.000000e+00, float* %4
br label %61
24: ; preds = %20
%25 = load i32, i32* %6
%26 = load i32, i32* %5
%27 = icmp slt i32 %25, %26
br i1 %27, label %28, label %31
28: ; preds = %24
br label %29
29: ; preds = %28, %19
%30 = call i32 @mtherrf(i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str, i64 0, i64 0), i32 1)
store float 0.000000e+00, float* %4
br label %61
31: ; preds = %24
%32 = load i32, i32* %5
%33 = load i32, i32* %6
%34 = icmp eq i32 %32, %33
br i1 %34, label %35, label %36
35: ; preds = %31
store float 0.000000e+00, float* %4
br label %61
36: ; preds = %31
%37 = load i32, i32* %6
%38 = load i32, i32* %5
%39 = sub nsw i32 %37, %38
%40 = sitofp i32 %39 to float
store float %40, float* %10
%41 = load i32, i32* %5
%42 = icmp eq i32 %41, 0
br i1 %42, label %43, label %51
43: ; preds = %36
%44 = load float, float* %8
%45 = fpext float %44 to double
%46 = fsub double 1.000000e+00, %45
%47 = load float, float* %10
%48 = call double @powf(double %46, float %47)
%49 = fsub double 1.000000e+00, %48
%50 = fptrunc double %49 to float
store float %50, float* %9
br label %59
51: ; preds = %36
%52 = load i32, i32* %5
%53 = add nsw i32 %52, 1
%54 = sitofp i32 %53 to float
store float %54, float* %9
%55 = load float, float* %9
%56 = load float, float* %10
%57 = load float, float* %8
%58 = call float @incbetf(float %55, float %56, float %57)
store float %58, float* %9
br label %59
59: ; preds = %51, %43
%60 = load float, float* %9
store float %60, float* %4
br label %61
61: ; preds = %59, %35, %29, %23
%62 = load float, float* %4
ret float %62
}

LLVM IR (-O2):
@.str = [7 x i8] c"bdtrcf\00"
define float @bdtrcf(i32 %0, i32 %1, float %2) {
%4 = fpext float %2 to double
%5 = fcmp olt float %2, 0.000000e+00
%6 = fcmp ogt float %2, 1.000000e+00
%7 = or i1 %5, %6
br i1 %7, label %12, label %8
8: ; preds = %3
%9 = icmp slt i32 %0, 0
br i1 %9, label %29, label %10
10: ; preds = %8
%11 = icmp slt i32 %1, %0
br i1 %11, label %12, label %14
12: ; preds = %10, %3
%13 = tail call i32 @mtherrf(i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str, i64 0, i64 0), i32 1)
br label %29
14: ; preds = %10
%15 = icmp eq i32 %1, %0
br i1 %15, label %29, label %16
16: ; preds = %14
%17 = sub nsw i32 %1, %0
%18 = sitofp i32 %17 to float
%19 = icmp eq i32 %0, 0
br i1 %19, label %20, label %25
20: ; preds = %16
%21 = fsub double 1.000000e+00, %4
%22 = tail call double @powf(double %21, float %18)
%23 = fsub double 1.000000e+00, %22
%24 = fptrunc double %23 to float
br label %29
25: ; preds = %16
%26 = add nuw nsw i32 %0, 1
%27 = sitofp i32 %26 to float
%28 = tail call float @incbetf(float %27, float %18, float %2)
br label %29
29: ; preds = %20, %25, %14, %8, %12
%30 = phi float [ 0.000000e+00, %12 ], [ 1.000000e+00, %8 ], [ 0.000000e+00, %14 ], [ %24, %20 ], [ %28, %25 ]
ret float %30
}