user: 请将以下的汇编代码转换成C语言代码：

```asm
<Fcpd>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x58,%rsp
  mov    %edi,%r13d
  mov    %esi,0x1c(%rsp)
  mov    %rdx,%r14
  mov    %rcx,%r15
  sub    %edi,%esi
  cmp    $0x2,%esi
  jle    L373
  mov    %r8,%rbx
  mov    %esi,%ebp
  mov    0x1c(%rsp),%edi
  lea    (%rdi,%r13,1),%edx
  mov    %edx,%eax
  shr    $0x1f,%eax
  add    %edx,%eax
  sar    %eax
  mov    %eax,0x10(%rsp)
  mov    %eax,%ecx
  sub    %r13d,%ecx
  mov    %ecx,0x40(%rsp)
  lea    0x8(,%rcx,4),%edi
  call   <malloc@plt>
  mov    %rax,%r12
  mov    0x1c(%rsp),%edi
  sub    0x10(%rsp),%edi
  mov    %edi,0x44(%rsp)
  lea    0x4(,%rdi,4),%edi
  call   <malloc@plt>
  mov    %rax,%r10
  mov    %rax,0x28(%rsp)
  lea    0x4(%rbx),%rax
  mov    %ebp,%ebp
  lea    0x8(%rbx,%rbp,4),%rdi
  mov    $0x0,%esi
  mov    $0x0,%ecx
  mov    0x10(%rsp),%r8d
  jmp    L269
L373:
  mov    0x1c(%rsp),%ebx
  movslq %ebx,%rax
  lea    0x0(,%rax,8),%rdx
  movsd  -0x8(%r14,%rdx,1),%xmm1
  subsd  (%r14,%rax,8),%xmm1
  movsd  -0x8(%rcx,%rdx,1),%xmm0
  subsd  (%rcx,%rax,8),%xmm0
  mulsd  %xmm0,%xmm0
  mulsd  %xmm1,%xmm1
  addsd  %xmm1,%xmm0
  movsd  D7(%rip),%xmm1
  call   <pow@plt>
  movsd  %xmm0,0x8(%rsp)
  lea    -0x1(%rbx),%eax
  cmp    %eax,%r13d
  jge    L311
  movslq %r13d,%rbp
  mov    %eax,0x20(%rsp)
  mov    %r13d,%r12d
  jmp    L126
L90:
  add    $0x1,%rbx
  cmp    %r13,%rbx
  je     L333
L30:
  movsd  (%r14,%rbp,8),%xmm1
  subsd  (%r14,%rbx,8),%xmm1
  movsd  (%r15,%rbp,8),%xmm0
  subsd  (%r15,%rbx,8),%xmm0
  mulsd  %xmm1,%xmm1
  mulsd  %xmm0,%xmm0
  addsd  %xmm0,%xmm1
  movapd %xmm1,%xmm0
  movsd  %xmm1,0x10(%rsp)
  movsd  D7(%rip),%xmm1
  call   <pow@plt>
  movsd  0x8(%rsp),%xmm3
  comisd %xmm0,%xmm3
  jbe    L90
  movsd  D7(%rip),%xmm1
  movsd  0x10(%rsp),%xmm0
  call   <pow@plt>
  movsd  %xmm0,0x8(%rsp)
  jmp    L90
L333:
  add    $0x1,%rbp
  cmp    %r12d,0x20(%rsp)
  je     L311
L126:
  add    $0x1,%r12d
  mov    0x1c(%rsp),%esi
  cmp    %r12d,%esi
  jl     L333
  movslq %r12d,%rbx
  mov    %esi,%eax
  sub    %r12d,%eax
  lea    0x2(%rbp,%rax,1),%r13
  jmp    L30
L91:
  add    $0x1,%esi
  movslq %esi,%r9
  mov    %edx,(%r10,%r9,4)
L419:
  add    $0x4,%rax
  cmp    %rdi,%rax
  je     L137
L269:
  mov    (%rax),%edx
  cmp    %r8d,%edx
  jg     L91
  add    $0x1,%ecx
  movslq %ecx,%r9
  mov    %edx,(%r12,%r9,4)
  jmp    L419
L137:
  mov    %r12,%r8
  mov    %r15,%rcx
  mov    %r14,%rdx
  mov    0x10(%rsp),%esi
  mov    %r13d,%edi
  call   <Fcpd>
  movsd  %xmm0,0x30(%rsp)
  ucomisd D34(%rip),%xmm0
  jp     L402
  pxor   %xmm6,%xmm6
  movsd  %xmm6,0x8(%rsp)
  jne    L402
L311:
  movsd  0x8(%rsp),%xmm0
  add    $0x58,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L402:
  mov    0x10(%rsp),%ebp
  lea    0x1(%rbp),%ebx
  mov    0x28(%rsp),%r8
  mov    %r15,%rcx
  mov    %r14,%rdx
  mov    0x1c(%rsp),%esi
  mov    %ebx,%edi
  call   <Fcpd>
  movapd %xmm0,%xmm6
  movsd  %xmm0,0x8(%rsp)
  comisd 0x30(%rsp),%xmm0
  ja     L492
  mov    %ebx,%eax
  cltq
  movsd  (%r14,%rax,8),%xmm2
  movsd  -0x8(%r14,%rax,8),%xmm1
  movapd %xmm2,%xmm0
  subsd  %xmm1,%xmm0
  comisd %xmm6,%xmm0
  jae    L311
  ucomisd D34(%rip),%xmm6
  jp     L413
  je     L311
L413:
  movsd  0x8(%rsp),%xmm6
  movsd  %xmm6,0x30(%rsp)
  jmp    L163
L39:
  mov    0x10(%rsp),%eax
  jmp    L169
L346:
  add    $0x4,%rax
  cmp    %rdi,%rax
  je     L393
L384:
  mov    (%rax),%edx
  mov    %r8d,%ecx
  sub    %edx,%ecx
  cmp    %ebp,%ecx
  jge    L346
  add    $0x1,%esi
  movslq %esi,%rcx
  mov    %edx,(%r9,%rcx,4)
  jmp    L346
L393:
  mov    0x44(%rsp),%edi
  test   %edi,%edi
  jle    L206
  mov    0x28(%rsp),%rcx
  lea    0x4(%rcx),%rax
  lea    -0x1(%rdi),%edx
  lea    0x8(%rcx,%rdx,4),%rsi
  mov    $0x0,%ecx
  mov    0x20(%rsp),%r8
  jmp    L48
L200:
  add    $0x4,%rax
  cmp    %rsi,%rax
  je     L206
L48:
  mov    (%rax),%edx
  cmp    %ebx,%edx
  jg     L200
  add    $0x1,%ecx
  movslq %ecx,%rdi
  mov    %edx,(%r8,%rdi,4)
  jmp    L200
L206:
  mov    %r12,%rdi
  call   <free@plt>
  mov    0x28(%rsp),%rdi
  call   <free@plt>
  test   %ebp,%ebp
  jle    L293
  mov    0x48(%rsp),%rax
  add    $0x4,%rax
  mov    %rax,0x28(%rsp)
  movsd  0x30(%rsp),%xmm2
  movsd  %xmm2,0x8(%rsp)
  movl   $0x0,0x1c(%rsp)
  mov    $0x1,%ebx
  jmp    L431
L314:
  cmp    %ebx,0x3c(%rsp)
  je     L465
  cmp    %ebx,%r13d
  jl     L192
  movslq %ebx,%rbp
  mov    0x20(%rsp),%rax
  lea    (%rax,%rbp,4),%r12
L336:
  movslq (%r12),%rdx
  mov    0x10(%rsp),%rax
  movslq (%rax),%rax
  movsd  (%r15,%rdx,8),%xmm1
  subsd  (%r15,%rax,8),%xmm1
  movsd  0x8(%rsp),%xmm4
  comisd %xmm1,%xmm4
  jbe    L192
  movsd  (%r14,%rdx,8),%xmm0
  subsd  (%r14,%rax,8),%xmm0
  mulsd  %xmm0,%xmm0
  mulsd  %xmm1,%xmm1
  addsd  %xmm1,%xmm0
  movsd  D7(%rip),%xmm1
  call   <pow@plt>
  minsd  0x8(%rsp),%xmm0
  movsd  %xmm0,0x8(%rsp)
  ucomisd D34(%rip),%xmm0
  jp     L306
  je     L465
L306:
  add    $0x1,%rbp
  add    $0x4,%r12
  cmp    %ebp,%r13d
  jge    L336
  jmp    L0
L192:
  movsd  0x8(%rsp),%xmm7
  ucomisd D34(%rip),%xmm7
  jp     L0
  je     L465
L0:
  addl   $0x1,0x1c(%rsp)
  mov    0x1c(%rsp),%eax
  addq   $0x4,0x28(%rsp)
  cmp    %eax,0x38(%rsp)
  jl     L465
L431:
  cmp    %ebx,%r13d
  jl     L500
  mov    0x28(%rsp),%rax
  mov    %rax,0x10(%rsp)
  movslq (%rax),%rax
  movsd  (%r15,%rax,8),%xmm0
  subsd  0x8(%rsp),%xmm0
  movslq %ebx,%rax
  mov    0x20(%rsp),%rcx
  lea    (%rcx,%rax,4),%rax
L439:
  movslq (%rax),%rdx
  comisd (%r15,%rdx,8),%xmm0
  jb     L314
  add    $0x1,%ebx
  add    $0x4,%rax
  cmp    %ebx,%r13d
  jge    L439
L500:
  cmp    %ebx,0x3c(%rsp)
  jne    L192
L465:
  mov    0x48(%rsp),%rdi
  call   <free@plt>
  mov    0x20(%rsp),%rdi
  call   <free@plt>
  jmp    L311
L293:
  movsd  0x30(%rsp),%xmm2
  movsd  %xmm2,0x8(%rsp)
  jmp    L465
L492:
  mov    0x10(%rsp),%eax
  add    $0x1,%eax
  cltq
  movsd  (%r14,%rax,8),%xmm2
  movsd  -0x8(%r14,%rax,8),%xmm1
  movapd %xmm2,%xmm0
  subsd  %xmm1,%xmm0
  movsd  0x30(%rsp),%xmm7
  movsd  %xmm7,0x8(%rsp)
  comisd %xmm7,%xmm0
  jae    L311
L163:
  mov    0x10(%rsp),%edi
  cmp    %edi,%r13d
  jge    L39
  movslq %edi,%rax
  lea    (%r14,%rax,8),%rdx
  mov    %edi,%eax
  subsd  0x30(%rsp),%xmm2
L81:
  movsd  -0x8(%rdx),%xmm0
  comisd %xmm2,%xmm0
  jbe    L169
  sub    $0x1,%eax
  sub    $0x8,%rdx
  cmp    %eax,%r13d
  jne    L81
  mov    %r13d,%eax
L169:
  mov    0x10(%rsp),%ecx
  sub    %eax,%ecx
  mov    %ecx,0x38(%rsp)
  lea    0x1(%rcx),%ebp
  mov    0x1c(%rsp),%edx
  cmp    %edx,%ebx
  jge    L47
  movslq %ebx,%rax
  addsd  0x30(%rsp),%xmm1
L73:
  mov    %eax,%ebx
  comisd 0x8(%r14,%rax,8),%xmm1
  jbe    L47
  lea    0x1(%rax),%ebx
  add    $0x1,%rax
  cmp    %eax,%edx
  jg     L73
L47:
  mov    %ebx,%r13d
  sub    0x10(%rsp),%r13d
  mov    0x38(%rsp),%eax
  lea    0x8(,%rax,4),%edi
  call   <malloc@plt>
  mov    %rax,0x48(%rsp)
  lea    0x1(%r13),%edi
  mov    %edi,0x3c(%rsp)
  shl    $0x2,%edi
  call   <malloc@plt>
  mov    %rax,0x20(%rsp)
  mov    0x40(%rsp),%ecx
  test   %ecx,%ecx
  js     L393
  lea    0x4(%r12),%rax
  mov    %ecx,%edx
  lea    0x8(%r12,%rdx,4),%rdi
  mov    $0x0,%esi
  mov    0x48(%rsp),%r9
  mov    0x10(%rsp),%r8d
  jmp    L384
```

tool_calls: name: extract_symbolic_data
arguments: label: D7
datatype: f64
name: extract_symbolic_data
arguments: label: D34
datatype: byte[8]

tool: D7: 0.5

tool: {"D34": [0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00]}

assistant: ```c
double Fcpd(int s, int t, const double *x, const double *y, const int *yo) {
  int q, a, b, *lt, *rt, ll, rl, i, j, *yl, *yr;
  double d, l, r;
  if (t - s < 3) {
    d = pow(pow(x[t - 1] - x[t], 2) + pow(y[t - 1] - y[t], 2), 0.5);
    for (a = s; a < t - 1; a++)
      for (b = a + 1; b <= t; b++)
        if (pow(pow(x[a] - x[b], 2) + pow(y[a] - y[b], 2), 0.5) < d)
          d = pow(pow(x[a] - x[b], 2) + pow(y[a] - y[b], 2), 0.5);
    return d;
  }
  q = (s + t) / 2;
  yl = (int *)malloc((q - s + 2) * sizeof(int));
  yr = (int *)malloc((t - q + 1) * sizeof(int));
  i = 0;
  j = 0;
  for (a = 1; a <= t - s + 1; a++)
    if (yo[a] <= q)
      yl[++i] = yo[a];
    else
      yr[++j] = yo[a];
  l = Fcpd(s, q, x, y, yl);
  if (l == 0)
    return 0;
  r = Fcpd(q + 1, t, x, y, yr);
  d = l < r ? l : r;
  r = x[q + 1] - x[q];
  if (r >= d || d == 0)
    return d;
  for (b = q; b > s && x[b - 1] > x[q + 1] - d; b--)
    ;
  ll = q - b + 1;
  for (b = q + 1; b < t && x[b + 1] < x[q] + d; b++)
    ;
  rl = b - q;
  lt = (int *)malloc((ll + 1) * sizeof(int));
  rt = (int *)malloc((rl + 1) * sizeof(int));
  i = 0;
  j = 0;
  for (a = 1; a <= q - s + 1; a++)
    if (q - yl[a] < ll)
      lt[++i] = yl[a];
  for (a = 1; a <= t - q; a++)
    if (yr[a] - q - 1 < rl)
      rt[++j] = yr[a];
  free(yl);
  free(yr);
  j = 1;
  for (i = 1; i <= ll; i++) {
    while (j <= rl && y[rt[j]] <= y[lt[i]] - d)
      j++;
    if (j == rl + 1)
      break;
    for (b = 0; b + j <= rl && y[rt[b + j]] - y[lt[i]] < d; b++) {
      r = pow(pow(x[rt[b + j]] - x[lt[i]], 2) + pow(y[rt[b + j]] - y[lt[i]], 2), 0.5);
      if (r < d)
        d = r;
      if (d == 0)
        break;
    }
    if (d == 0)
      break;
  }
  free(lt);
  free(rt);
  return d;
}
```