double *cp_binomial(points)
int points;
{
  register double *coeff;
  register int n, k;
  int e;
  e = points;
  coeff = (double *)gp_alloc(e * sizeof(double), "bezier coefficients");
  n = points - 1;
  e = n / 2;
  coeff[0] = 0.0;
  for (k = 0; k < e; k++) {
    coeff[k + 1] = coeff[k] + log(((double)(n - k)) / ((double)(k + 1)));
  }
  for (k = n; k >= e; k--)
    coeff[k] = coeff[n - k];
  return (coeff);
}


x86 assembly (clang, -O0):
<cp_binomial>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %edi,-0x4(%rbp)
mov    -0x4(%rbp),%eax
mov    %eax,-0x1c(%rbp)
movslq -0x1c(%rbp),%rdi
shl    $0x3,%rdi
lea    0xec0(%rip),%rsi
mov    $0x0,%al
call   1030 <gp_alloc@plt>
cltq
mov    %rax,-0x10(%rbp)
mov    -0x4(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x14(%rbp)
mov    -0x14(%rbp),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,-0x1c(%rbp)
mov    -0x10(%rbp),%rax
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax)
movl   $0x0,-0x18(%rbp)
mov    -0x18(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jge    11dd <cp_binomial+0xbd>
mov    -0x10(%rbp),%rax
movslq -0x18(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x14(%rbp),%eax
sub    -0x18(%rbp),%eax
cvtsi2sd %eax,%xmm0
mov    -0x18(%rbp),%eax
add    $0x1,%eax
cvtsi2sd %eax,%xmm1
divsd  %xmm1,%xmm0
call   1040 <log@plt>
movaps %xmm0,%xmm1
movsd  -0x28(%rbp),%xmm0
addsd  %xmm1,%xmm0
mov    -0x10(%rbp),%rax
mov    -0x18(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    1176 <cp_binomial+0x56>
mov    -0x14(%rbp),%eax
mov    %eax,-0x18(%rbp)
mov    -0x18(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jl     121c <cp_binomial+0xfc>
mov    -0x10(%rbp),%rax
mov    -0x14(%rbp),%ecx
sub    -0x18(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x18(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x18(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x18(%rbp)
jmp    11e3 <cp_binomial+0xc3>
mov    -0x10(%rbp),%rax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<cp_binomial>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x18,%rsp
mov    %edi,%r14d
movslq %edi,%rbx
lea    0x0(,%rbx,8),%rdi
lea    0xebd(%rip),%rsi
xor    %eax,%eax
call   1030 <gp_alloc@plt>
movslq %eax,%r15
lea    -0x1(%rbx),%eax
mov    %eax,0x8(%rsp)
shr    $0x1f,%eax
add    %ebx,%eax
add    $0xffffffff,%eax
sar    %eax
mov    %eax,0xc(%rsp)
movq   $0x0,(%r15)
cmp    $0x3,%ebx
jl     11e1 <cp_binomial+0xc1>
mov    0xc(%rsp),%eax
cmp    $0x2,%eax
mov    $0x1,%ebp
cmovge %eax,%ebp
neg    %rbp
xorps  %xmm0,%xmm0
mov    $0x1,%r12d
mov    0x8(%rsp),%r13d
xchg   %ax,%ax
movsd  %xmm0,0x10(%rsp)
xorps  %xmm0,%xmm0
cvtsi2sd %r13d,%xmm0
xorps  %xmm1,%xmm1
cvtsi2sd %r12d,%xmm1
divsd  %xmm1,%xmm0
call   1040 <log@plt>
movsd  0x10(%rsp),%xmm1
addsd  %xmm0,%xmm1
movsd  %xmm1,0x10(%rsp)
movsd  0x10(%rsp),%xmm0
movsd  %xmm0,(%r15,%r12,8)
add    $0xffffffff,%r13d
lea    (%r12,%rbp,1),%rax
add    $0x1,%rax
add    $0x1,%r12
cmp    $0x1,%rax
jne    1190 <cp_binomial+0x70>
mov    0xc(%rsp),%edx
cmp    %r14d,%edx
jge    128c <cp_binomial+0x16c>
movslq 0x8(%rsp),%rcx
movslq %edx,%rax
sub    %edx,%r14d
mov    %rax,%rdx
not    %rdx
add    %rbx,%rdx
and    $0x3,%r14
je     123a <cp_binomial+0x11a>
lea    (%r15,%rbx,8),%rsi
add    $0xfffffffffffffff8,%rsi
mov    %rcx,%rdi
sub    %rbx,%rdi
lea    (%r15,%rdi,8),%rbp
add    $0x8,%rbp
xor    %edi,%edi
movsd  0x0(%rbp,%rdi,8),%xmm0
movsd  %xmm0,(%rsi)
add    $0x1,%rdi
add    $0xfffffffffffffff8,%rsi
cmp    %rdi,%r14
jne    1220 <cp_binomial+0x100>
sub    %rdi,%rbx
cmp    $0x3,%rdx
jb     128c <cp_binomial+0x16c>
sub    %rbx,%rcx
lea    (%r15,%rcx,8),%rcx
add    $0x20,%rcx
nopl   0x0(%rax,%rax,1)
movsd  -0x18(%rcx),%xmm0
movsd  %xmm0,-0x8(%r15,%rbx,8)
movsd  -0x10(%rcx),%xmm0
movsd  %xmm0,-0x10(%r15,%rbx,8)
movsd  -0x8(%rcx),%xmm0
movsd  %xmm0,-0x18(%r15,%rbx,8)
movsd  (%rcx),%xmm0
movsd  %xmm0,-0x20(%r15,%rbx,8)
add    $0xfffffffffffffffc,%rbx
add    $0x20,%rcx
cmp    %rax,%rbx
jg     1250 <cp_binomial+0x130>
mov    %r15,%rax
add    $0x18,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [20 x i8] c"bezier coefficients\00"
define double* @cp_binomial(i32 %0) {
%2 = alloca i32
%3 = alloca double*
%4 = alloca i32
%5 = alloca i32
%6 = alloca i32
store i32 %0, i32* %2
%7 = load i32, i32* %2
store i32 %7, i32* %6
%8 = load i32, i32* %6
%9 = sext i32 %8 to i64
%10 = mul i64 %9, 8
%11 = call i32 (i64, i8*, ...) bitcast (i32 (...)* @gp_alloc to i32 (i64, i8*, ...)*)(i64 %10, i8* getelementptr inbounds ([20 x i8], [20 x i8]* @.str, i64 0, i64 0))
%12 = sext i32 %11 to i64
%13 = inttoptr i64 %12 to double*
store double* %13, double** %3
%14 = load i32, i32* %2
%15 = sub nsw i32 %14, 1
store i32 %15, i32* %4
%16 = load i32, i32* %4
%17 = sdiv i32 %16, 2
store i32 %17, i32* %6
%18 = load double*, double** %3
%19 = getelementptr inbounds double, double* %18, i64 0
store double 0.000000e+00, double* %19
store i32 0, i32* %5
br label %20
20: ; preds = %45, %1
%21 = load i32, i32* %5
%22 = load i32, i32* %6
%23 = icmp slt i32 %21, %22
br i1 %23, label %24, label %48
24: ; preds = %20
%25 = load double*, double** %3
%26 = load i32, i32* %5
%27 = sext i32 %26 to i64
%28 = getelementptr inbounds double, double* %25, i64 %27
%29 = load double, double* %28
%30 = load i32, i32* %4
%31 = load i32, i32* %5
%32 = sub nsw i32 %30, %31
%33 = sitofp i32 %32 to double
%34 = load i32, i32* %5
%35 = add nsw i32 %34, 1
%36 = sitofp i32 %35 to double
%37 = fdiv double %33, %36
%38 = call double @log(double %37)
%39 = fadd double %29, %38
%40 = load double*, double** %3
%41 = load i32, i32* %5
%42 = add nsw i32 %41, 1
%43 = sext i32 %42 to i64
%44 = getelementptr inbounds double, double* %40, i64 %43
store double %39, double* %44
br label %45
45: ; preds = %24
%46 = load i32, i32* %5
%47 = add nsw i32 %46, 1
store i32 %47, i32* %5
br label %20
48: ; preds = %20
%49 = load i32, i32* %4
store i32 %49, i32* %5
br label %50
50: ; preds = %66, %48
%51 = load i32, i32* %5
%52 = load i32, i32* %6
%53 = icmp sge i32 %51, %52
br i1 %53, label %54, label %69
54: ; preds = %50
%55 = load double*, double** %3
%56 = load i32, i32* %4
%57 = load i32, i32* %5
%58 = sub nsw i32 %56, %57
%59 = sext i32 %58 to i64
%60 = getelementptr inbounds double, double* %55, i64 %59
%61 = load double, double* %60
%62 = load double*, double** %3
%63 = load i32, i32* %5
%64 = sext i32 %63 to i64
%65 = getelementptr inbounds double, double* %62, i64 %64
store double %61, double* %65
br label %66
66: ; preds = %54
%67 = load i32, i32* %5
%68 = add nsw i32 %67, -1
store i32 %68, i32* %5
br label %50
69: ; preds = %50
%70 = load double*, double** %3
ret double* %70
}

LLVM IR (-O2):
@.str = [20 x i8] c"bezier coefficients\00"
define double* @cp_binomial(i32 %0) {
%2 = sext i32 %0 to i64
%3 = shl nsw i64 %2, 3
%4 = tail call i32 (i64, i8*, ...) bitcast (i32 (...)* @gp_alloc to i32 (i64, i8*, ...)*)(i64 %3, i8* getelementptr inbounds ([20 x i8], [20 x i8]* @.str, i64 0, i64 0))
%5 = sext i32 %4 to i64
%6 = inttoptr i64 %5 to double*
%7 = add nsw i32 %0, -1
%8 = sdiv i32 %7, 2
store double 0.000000e+00, double* %6
%9 = icmp sgt i32 %0, 2
br i1 %9, label %10, label %13
10: ; preds = %1
%11 = call i32 @llvm.smax.i32(i32 %8, i32 1)
%12 = zext i32 %11 to i64
br label %36
13: ; preds = %36, %1
%14 = icmp slt i32 %8, %0
br i1 %14, label %15, label %73
15: ; preds = %13
%16 = sext i32 %7 to i64
%17 = sext i32 %8 to i64
%18 = sub nsw i64 %2, %17
%19 = xor i64 %17, -1
%20 = add nsw i64 %19, %2
%21 = and i64 %18, 3
%22 = icmp eq i64 %21, 0
br i1 %22, label %33, label %23
23: ; preds = %15, %23
%24 = phi i64 [ %26, %23 ], [ %2, %15 ]
%25 = phi i64 [ %31, %23 ], [ 0, %15 ]
%26 = add nsw i64 %24, -1
%27 = sub nsw i64 %16, %26
%28 = getelementptr inbounds double, double* %6, i64 %27
%29 = load double, double* %28
%30 = getelementptr inbounds double, double* %6, i64 %26
store double %29, double* %30
%31 = add i64 %25, 1
%32 = icmp eq i64 %31, %21
br i1 %32, label %33, label %23
33: ; preds = %23, %15
%34 = phi i64 [ %2, %15 ], [ %26, %23 ]
%35 = icmp ult i64 %20, 3
br i1 %35, label %73, label %50
36: ; preds = %10, %36
%37 = phi double [ 0.000000e+00, %10 ], [ %47, %36 ]
%38 = phi i64 [ 0, %10 ], [ %42, %36 ]
%39 = trunc i64 %38 to i32
%40 = sub nsw i32 %7, %39
%41 = sitofp i32 %40 to double
%42 = add nuw nsw i64 %38, 1
%43 = trunc i64 %42 to i32
%44 = sitofp i32 %43 to double
%45 = fdiv double %41, %44
%46 = tail call double @log(double %45)
%47 = fadd double %37, %46
%48 = getelementptr inbounds double, double* %6, i64 %42
store double %47, double* %48
%49 = icmp eq i64 %42, %12
br i1 %49, label %13, label %36
50: ; preds = %33, %50
%51 = phi i64 [ %67, %50 ], [ %34, %33 ]
%52 = add nsw i64 %51, -1
%53 = sub nsw i64 %16, %52
%54 = getelementptr inbounds double, double* %6, i64 %53
%55 = load double, double* %54
%56 = getelementptr inbounds double, double* %6, i64 %52
store double %55, double* %56
%57 = add nsw i64 %51, -2
%58 = sub nsw i64 %16, %57
%59 = getelementptr inbounds double, double* %6, i64 %58
%60 = load double, double* %59
%61 = getelementptr inbounds double, double* %6, i64 %57
store double %60, double* %61
%62 = add nsw i64 %51, -3
%63 = sub nsw i64 %16, %62
%64 = getelementptr inbounds double, double* %6, i64 %63
%65 = load double, double* %64
%66 = getelementptr inbounds double, double* %6, i64 %62
store double %65, double* %66
%67 = add nsw i64 %51, -4
%68 = sub nsw i64 %16, %67
%69 = getelementptr inbounds double, double* %6, i64 %68
%70 = load double, double* %69
%71 = getelementptr inbounds double, double* %6, i64 %67
store double %70, double* %71
%72 = icmp sgt i64 %67, %17
br i1 %72, label %50, label %73
73: ; preds = %33, %50, %13
ret double* %6
}