#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 DBL_MAX;
double fabs(scalar_t__);
double k2nn_dist_inSet(int, int, int, double *);
double k2nn_dist_point(int, double *, int, double *);
scalar_t__ log(int);
double KL_estimator_circulardist(int p, int k, int n, double *A, int m,
                                 double *B) {
  int i;
  double acum;
  double r_k, s_k;
  if ((n < k + 1) || (m < k))
    return DBL_MAX;
  if (k != 2)
    return 0;
  acum = 0;
  for (i = 0; i < n; i++) {
    r_k = k2nn_dist_inSet(p, i, n, A);
    s_k = k2nn_dist_point(p, A + (i * p), m, B);
    acum += log(s_k / r_k);
  }
  return fabs(((1.0 * p) / n) * acum + log(m / (n - 1.0)));
}


x86 assembly (clang, -O0):
<KL_estimator_circulardist>:
push   %rbp
mov    %rsp,%rbp
sub    $0x60,%rsp
mov    %edi,-0xc(%rbp)
mov    %esi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8d,-0x24(%rbp)
mov    %r9,-0x30(%rbp)
mov    -0x14(%rbp),%eax
mov    -0x10(%rbp),%ecx
add    $0x1,%ecx
cmp    %ecx,%eax
jl     117a <KL_estimator_circulardist+0x3a>
mov    -0x24(%rbp),%eax
cmp    -0x10(%rbp),%eax
jge    118f <KL_estimator_circulardist+0x4f>
mov    0x2e5f(%rip),%rax
movsd  (%rax),%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    12a2 <KL_estimator_circulardist+0x162>
cmpl   $0x2,-0x10(%rbp)
je     11a6 <KL_estimator_circulardist+0x66>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    12a2 <KL_estimator_circulardist+0x162>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x40(%rbp)
movl   $0x0,-0x34(%rbp)
mov    -0x34(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    1230 <KL_estimator_circulardist+0xf0>
mov    -0xc(%rbp),%edi
mov    -0x34(%rbp),%esi
mov    -0x14(%rbp),%edx
mov    -0x20(%rbp),%rcx
call   1030 <k2nn_dist_inSet@plt>
movsd  %xmm0,-0x48(%rbp)
mov    -0xc(%rbp),%edi
mov    -0x20(%rbp),%rsi
mov    -0x34(%rbp),%eax
imul   -0xc(%rbp),%eax
cltq
shl    $0x3,%rax
add    %rax,%rsi
mov    -0x24(%rbp),%edx
mov    -0x30(%rbp),%rcx
call   1060 <k2nn_dist_point@plt>
movsd  %xmm0,-0x50(%rbp)
movsd  -0x50(%rbp),%xmm0
divsd  -0x48(%rbp),%xmm0
cvttsd2si %xmm0,%edi
call   1050 <log@plt>
cvtsi2sd %rax,%xmm0
addsd  -0x40(%rbp),%xmm0
movsd  %xmm0,-0x40(%rbp)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    11b5 <KL_estimator_circulardist+0x75>
cvtsi2sdl -0xc(%rbp),%xmm1
movsd  0xdc3(%rip),%xmm0
mulsd  %xmm1,%xmm0
cvtsi2sdl -0x14(%rbp),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x60(%rbp)
movsd  -0x40(%rbp),%xmm0
movsd  %xmm0,-0x58(%rbp)
cvtsi2sdl -0x24(%rbp),%xmm0
cvtsi2sdl -0x14(%rbp),%xmm1
movsd  0xd95(%rip),%xmm2
subsd  %xmm2,%xmm1
divsd  %xmm1,%xmm0
cvttsd2si %xmm0,%edi
call   1050 <log@plt>
movsd  -0x60(%rbp),%xmm0
movsd  -0x58(%rbp),%xmm2
cvtsi2sd %rax,%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
cvttsd2si %xmm0,%rdi
call   1040 <fabs@plt>
movsd  %xmm0,-0x8(%rbp)
movsd  -0x8(%rbp),%xmm0
add    $0x60,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<KL_estimator_circulardist>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x28,%rsp
cmp    %edx,%esi
jge    1200 <KL_estimator_circulardist+0xc0>
cmp    %esi,%r8d
jl     1200 <KL_estimator_circulardist+0xc0>
xorpd  %xmm0,%xmm0
cmp    $0x2,%esi
jne    120b <KL_estimator_circulardist+0xcb>
mov    %edi,%ebp
mov    %r8d,%r15d
test   %edx,%edx
mov    %edx,0x14(%rsp)
mov    %r8d,0x4(%rsp)
jle    121a <KL_estimator_circulardist+0xda>
mov    %edx,%ebx
movslq %ebp,%rax
shl    $0x3,%rax
mov    %rax,0x18(%rsp)
xorpd  %xmm2,%xmm2
xor    %r14d,%r14d
mov    %rcx,%r12
mov    %r9,%r13
nopl   (%rax)
movsd  %xmm2,0x8(%rsp)
mov    %ebp,%edi
mov    %r14d,%esi
mov    %ebx,%edx
mov    %rcx,%r15
call   1030 <k2nn_dist_inSet@plt>
movsd  %xmm0,0x20(%rsp)
mov    %ebp,%edi
mov    %r12,%rsi
mov    0x4(%rsp),%edx
mov    %r13,%rcx
call   1060 <k2nn_dist_point@plt>
divsd  0x20(%rsp),%xmm0
cvttsd2si %xmm0,%edi
call   1050 <log@plt>
movsd  0x8(%rsp),%xmm2
mov    %r15,%rcx
xorps  %xmm0,%xmm0
cvtsi2sd %rax,%xmm0
addsd  %xmm0,%xmm2
add    $0x1,%r14
add    0x18(%rsp),%r12
cmp    %r14,%rbx
jne    11a0 <KL_estimator_circulardist+0x60>
jmp    121e <KL_estimator_circulardist+0xde>
mov    0x2dd9(%rip),%rax
movsd  (%rax),%xmm0
add    $0x28,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
xorpd  %xmm2,%xmm2
cvtsi2sd %ebp,%xmm3
xorps  %xmm0,%xmm0
cvtsi2sdl 0x14(%rsp),%xmm0
divsd  %xmm0,%xmm3
cvtsi2sdl 0x4(%rsp),%xmm1
addsd  0xdc3(%rip),%xmm0
mulsd  %xmm2,%xmm3
movsd  %xmm3,0x8(%rsp)
divsd  %xmm0,%xmm1
cvttsd2si %xmm1,%edi
call   1050 <log@plt>
xorps  %xmm0,%xmm0
cvtsi2sd %rax,%xmm0
addsd  0x8(%rsp),%xmm0
cvttsd2si %xmm0,%rdi
add    $0x28,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
jmp    1040 <fabs@plt>

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

LLVM IR (-O2):
@DBL_MAX = global double 0.000000e+00
define double @KL_estimator_circulardist(i32 %0, i32 %1, i32 %2, double* %3, i32 %4, double* %5) {
%7 = icmp sge i32 %1, %2
%8 = icmp slt i32 %4, %1
%9 = or i1 %7, %8
br i1 %9, label %10, label %12
10: ; preds = %6
%11 = load double, double* @DBL_MAX
br label %48
12: ; preds = %6
%13 = icmp eq i32 %1, 2
br i1 %13, label %14, label %48
14: ; preds = %12
%15 = icmp sgt i32 %2, 0
br i1 %15, label %16, label %34
16: ; preds = %14
%17 = sext i32 %0 to i64
%18 = zext i32 %2 to i64
br label %19
19: ; preds = %16, %19
%20 = phi i64 [ 0, %16 ], [ %32, %19 ]
%21 = phi double [ 0.000000e+00, %16 ], [ %31, %19 ]
%22 = trunc i64 %20 to i32
%23 = tail call double @k2nn_dist_inSet(i32 %0, i32 %22, i32 %2, double* %3)
%24 = mul nsw i64 %20, %17
%25 = getelementptr inbounds double, double* %3, i64 %24
%26 = tail call double @k2nn_dist_point(i32 %0, double* %25, i32 %4, double* %5)
%27 = fdiv double %26, %23
%28 = fptosi double %27 to i32
%29 = tail call i64 @log(i32 %28)
%30 = sitofp i64 %29 to double
%31 = fadd double %21, %30
%32 = add nuw nsw i64 %20, 1
%33 = icmp eq i64 %32, %18
br i1 %33, label %34, label %19
34: ; preds = %19, %14
%35 = phi double [ 0.000000e+00, %14 ], [ %31, %19 ]
%36 = sitofp i32 %0 to double
%37 = sitofp i32 %2 to double
%38 = fdiv double %36, %37
%39 = sitofp i32 %4 to double
%40 = fadd double %37, -1.000000e+00
%41 = fdiv double %39, %40
%42 = fptosi double %41 to i32
%43 = tail call i64 @log(i32 %42)
%44 = sitofp i64 %43 to double
%45 = tail call double @llvm.fmuladd.f64(double %38, double %35, double %44)
%46 = fptosi double %45 to i64
%47 = tail call double @fabs(i64 %46)
br label %48
48: ; preds = %12, %34, %10
%49 = phi double [ %11, %10 ], [ %47, %34 ], [ 0.000000e+00, %12 ]
ret double %49
}