double spft(z, x, y, k, n, key)
float *x, *y, *k;
int key, n;
double z;
{
  float dx;
  int m;
  m = circe(z, x, n);
  dx = z - *(x + m - 1);
  return spf(dx, x, y, k, m, key);
}


x86 assembly (clang, -O0):
<spft>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
movsd  %xmm0,-0x8(%rbp)
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %rdx,-0x20(%rbp)
mov    %ecx,-0x24(%rbp)
mov    %r8d,-0x28(%rbp)
movsd  -0x8(%rbp),%xmm0
mov    -0x10(%rbp),%rdi
mov    -0x24(%rbp),%esi
mov    $0x1,%al
call   1040 <circe@plt>
mov    %eax,-0x30(%rbp)
movsd  -0x8(%rbp),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x30(%rbp),%rcx
movss  -0x4(%rax,%rcx,4),%xmm1
cvtss2sd %xmm1,%xmm1
subsd  %xmm1,%xmm0
cvtsd2ss %xmm0,%xmm0
movss  %xmm0,-0x2c(%rbp)
movss  -0x2c(%rbp),%xmm0
cvtss2sd %xmm0,%xmm0
mov    -0x10(%rbp),%rdi
mov    -0x18(%rbp),%rsi
mov    -0x20(%rbp),%rdx
mov    -0x30(%rbp),%ecx
mov    -0x28(%rbp),%r8d
mov    $0x1,%al
call   1030 <spf@plt>
cvtsi2sd %eax,%xmm0
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<spft>:
push   %rbp
push   %r15
push   %r14
push   %rbx
push   %rax
mov    %r8d,%r14d
mov    %rdx,%r15
mov    %rsi,%rbp
mov    %rdi,%rbx
movsd  %xmm0,(%rsp)
mov    %ecx,%esi
mov    $0x1,%al
call   1040 <circe@plt>
movslq %eax,%rcx
movss  -0x4(%rbx,%rcx,4),%xmm0
cvtss2sd %xmm0,%xmm0
movsd  (%rsp),%xmm1
subsd  %xmm0,%xmm1
xorps  %xmm0,%xmm0
cvtsd2ss %xmm1,%xmm0
cvtss2sd %xmm0,%xmm0
mov    %rbx,%rdi
mov    %rbp,%rsi
mov    %r15,%rdx
mov    %r14d,%r8d
mov    $0x1,%al
call   1030 <spf@plt>
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
add    $0x8,%rsp
pop    %rbx
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define double @spft(double %0, float* %1, float* %2, float* %3, i32 %4, i32 %5) {
%7 = alloca double
%8 = alloca float*
%9 = alloca float*
%10 = alloca float*
%11 = alloca i32
%12 = alloca i32
%13 = alloca float
%14 = alloca i32
store double %0, double* %7
store float* %1, float** %8
store float* %2, float** %9
store float* %3, float** %10
store i32 %4, i32* %11
store i32 %5, i32* %12
%15 = load double, double* %7
%16 = load float*, float** %8
%17 = load i32, i32* %11
%18 = call i32 (double, float*, i32, ...) bitcast (i32 (...)* @circe to i32 (double, float*, i32, ...)*)(double %15, float* %16, i32 %17)
store i32 %18, i32* %14
%19 = load double, double* %7
%20 = load float*, float** %8
%21 = load i32, i32* %14
%22 = sext i32 %21 to i64
%23 = getelementptr inbounds float, float* %20, i64 %22
%24 = getelementptr inbounds float, float* %23, i64 -1
%25 = load float, float* %24
%26 = fpext float %25 to double
%27 = fsub double %19, %26
%28 = fptrunc double %27 to float
store float %28, float* %13
%29 = load float, float* %13
%30 = fpext float %29 to double
%31 = load float*, float** %8
%32 = load float*, float** %9
%33 = load float*, float** %10
%34 = load i32, i32* %14
%35 = load i32, i32* %12
%36 = call i32 (double, float*, float*, float*, i32, i32, ...) bitcast (i32 (...)* @spf to i32 (double, float*, float*, float*, i32, i32, ...)*)(double %30, float* %31, float* %32, float* %33, i32 %34, i32 %35)
%37 = sitofp i32 %36 to double
ret double %37
}

LLVM IR (-O2):
define double @spft(double %0, float* %1, float* %2, float* %3, i32 %4, i32 %5) {
%7 = tail call i32 (double, float*, i32, ...) bitcast (i32 (...)* @circe to i32 (double, float*, i32, ...)*)(double %0, float* %1, i32 %4)
%8 = sext i32 %7 to i64
%9 = getelementptr inbounds float, float* %1, i64 %8
%10 = getelementptr inbounds float, float* %9, i64 -1
%11 = load float, float* %10
%12 = fpext float %11 to double
%13 = fsub double %0, %12
%14 = fptrunc double %13 to float
%15 = fpext float %14 to double
%16 = tail call i32 (double, float*, float*, float*, i32, i32, ...) bitcast (i32 (...)* @spf to i32 (double, float*, float*, float*, i32, i32, ...)*)(double %15, float* %1, float* %2, float* %3, i32 %7, i32 %5)
%17 = sitofp i32 %16 to double
ret double %17
}