user: What is the c source code of the assembly code below?

```asm
<nn_single_full>:
  endbr64
  push   %r15
  mov    %esi,%r15d
  push   %r14
  push   %r13
  mov    $0x400,%r13d
  push   %r12
  mov    %edx,%r12d
  push   %rbp
  mov    $0x400,%ebp
  push   %rbx
  mov    %r9,%rbx
  sub    $0xb8,%rsp
  cmp    %r13d,%esi
  mov    0xf0(%rsp),%rax
  cmovle %esi,%r13d
  cmp    %ebp,%edx
  mov    %edi,0x30(%rsp)
  cmovle %edx,%ebp
  mov    %esi,0xa4(%rsp)
  mov    %rax,0x38(%rsp)
  mov    0xf8(%rsp),%rax
  mov    %r13d,%edi
  imul   %ebp,%edi
  mov    %ecx,0x34(%rsp)
  mov    %rax,0x70(%rsp)
  mov    0x100(%rsp),%rax
  mov    %r8,0xa8(%rsp)
  mov    %rax,0x78(%rsp)
  mov    0x108(%rsp),%rax
  mov    %rax,0x58(%rsp)
  mov    0x110(%rsp),%rax
  mov    %rax,0x80(%rsp)
  call   <fvec_new@plt>
  mov    %rax,(%rsp)
  movslq %r15d,%rax
  mov    %rax,0x60(%rsp)
  test   %rax,%rax
  jle    L63
  movslq %r12d,%rax
  movslq %r13d,%rdi
  movslq %ebp,%r15
  mov    0x78(%rsp),%r10
  mov    %rax,0x20(%rsp)
  mov    0x60(%rsp),%rax
  mov    %r15,%r11
  mov    %rdi,0x88(%rsp)
  mov    0x70(%rsp),%r13
  mov    %r10,%r14
  mov    %rax,0x68(%rsp)
  lea    0x0(,%rdi,4),%rax
  mov    %rax,0x90(%rsp)
  movslq 0x34(%rsp),%rax
  mov    %rbx,0x28(%rsp)
  movq   $0x0,0x50(%rsp)
  imul   %rax,%rdi
  imul   %r15,%rax
  lea    0x0(,%rdi,4),%rdi
  shl    $0x2,%rax
  mov    %rdi,0x98(%rsp)
  mov    %rax,0x48(%rsp)
  lea    0x0(,%r15,4),%rax
  mov    %rax,0x40(%rsp)
L27:
  mov    0x68(%rsp),%rax
  mov    0x88(%rsp),%r15
  mov    0x50(%rsp),%rdi
  cmp    %r15,%rax
  cmovle %rax,%r15
  lea    0x0(,%rdi,4),%rax
  mov    %r15d,0xa0(%rsp)
  movslq %r15d,%r15
  lea    (%r15,%rdi,1),%rdx
  shl    $0x2,%rdx
  test   %r15,%r15
  jle    L175
  mov    0x70(%rsp),%rcx
  mov    0x78(%rsp),%rsi
  nopl   0x0(%rax)
L177:
  movl   $0xffffffff,(%rcx,%rax,1)
  movl   $0x7149f2ca,(%rsi,%rax,1)
  add    $0x4,%rax
  cmp    %rdx,%rax
  jne    L177
L175:
  cmpq   $0x0,0x20(%rsp)
  jle    L181
  mov    0xa8(%rsp),%rax
  mov    0x20(%rsp),%r10
  xor    %ebp,%ebp
  mov    0x38(%rsp),%r12
  mov    %rax,0x8(%rsp)
  nopl   0x0(%rax)
L73:
  cmp    %r11,%r10
  mov    %r11,%rbx
  mov    %r11,0x18(%rsp)
  cmovle %r10,%rbx
  cmpl   $0x2,0x30(%rsp)
  mov    %r10,0x10(%rsp)
  mov    %ebx,%esi
  je     L198
  sub    $0x8,%rsp
  mov    %ebx,%edx
  push   0x8(%rsp)
  mov    0x38(%rsp),%r9
  mov    0x18(%rsp),%r8
  mov    0xb0(%rsp),%ecx
  mov    0x44(%rsp),%esi
  mov    0x40(%rsp),%edi
  call   <compute_cross_distances_alt@plt>
  pop    %rax
  pop    %rdx
  mov    0x18(%rsp),%r11
  mov    0x10(%rsp),%r10
L186:
  cmpq   $0x0,0x38(%rsp)
  jne    L136
  test   %r15,%r15
  jle    L150
  movslq %ebx,%rbx
L88:
  mov    (%rsp),%rdx
  lea    0x0(,%rbx,4),%rdi
  xor    %ecx,%ecx
  nop
L207:
  mov    0x0(%r13,%rcx,4),%esi
  movss  (%r14,%rcx,4),%xmm1
  test   %rbx,%rbx
  jle    L25
  xor    %eax,%eax
  nopw   0x0(%rax,%rax,1)
L58:
  movss  (%rdx,%rax,4),%xmm0
  comiss %xmm0,%xmm1
  jbe    L24
  lea    0x0(%rbp,%rax,1),%esi
  movaps %xmm0,%xmm1
L24:
  add    $0x1,%rax
  cmp    %rbx,%rax
  jne    L58
L25:
  mov    %esi,0x0(%r13,%rcx,4)
  add    %rdi,%rdx
  movss  %xmm1,(%r14,%rcx,4)
  add    $0x1,%rcx
  cmp    %r15,%rcx
  jl     L207
L150:
  mov    0x48(%rsp),%rdi
  add    %r11,%rbp
  add    %rdi,0x8(%rsp)
  sub    %r11,%r10
  add    0x40(%rsp),%r12
  cmp    0x20(%rsp),%rbp
  jl     L73
L181:
  cmpq   $0x0,0x58(%rsp)
  je     L71
  pxor   %xmm0,%xmm0
  pxor   %xmm1,%xmm1
  mov    %r11,0x8(%rsp)
  mov    0x80(%rsp),%rdi
  cvtsi2sdq 0x50(%rsp),%xmm0
  mov    0x58(%rsp),%rax
  cvtsi2sdl 0xa4(%rsp),%xmm1
  divsd  %xmm1,%xmm0
  call   *%rax
  mov    0x8(%rsp),%r11
L71:
  mov    0x88(%rsp),%rdi
  add    %rdi,0x50(%rsp)
  sub    %rdi,0x68(%rsp)
  mov    0x90(%rsp),%rdi
  mov    0x98(%rsp),%rsi
  mov    0x50(%rsp),%rax
  add    %rsi,0x28(%rsp)
  add    %rdi,%r13
  add    %rdi,%r14
  cmp    %rax,0x60(%rsp)
  jg     L27
L63:
  mov    (%rsp),%rdi
  call   <free@plt>
  cmpq   $0x0,0x58(%rsp)
  je     L52
  movsd  D8(%rip),%xmm0
  mov    0x80(%rsp),%rdi
  mov    0x58(%rsp),%rax
  add    $0xb8,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  jmp    *%rax
L136:
  test   %r15,%r15
  jle    L150
  movslq %ebx,%rbx
  mov    (%rsp),%rdx
  xor    %ecx,%ecx
  lea    0x0(,%rbx,4),%rsi
  nopw   0x0(%rax,%rax,1)
L18:
  xor    %eax,%eax
  test   %rbx,%rbx
  jle    L172
  nopw   0x0(%rax,%rax,1)
L118:
  movss  (%rdx,%rax,4),%xmm0
  mulss  (%r12,%rax,4),%xmm0
  movss  %xmm0,(%rdx,%rax,4)
  add    $0x1,%rax
  cmp    %rbx,%rax
  jne    L118
L172:
  add    $0x1,%rcx
  add    %rsi,%rdx
  cmp    %r15,%rcx
  jne    L18
  jmp    L88
L198:
  mov    (%rsp),%r9
  mov    0x28(%rsp),%r8
  mov    0x8(%rsp),%rcx
  mov    0xa0(%rsp),%edx
  mov    0x34(%rsp),%edi
  call   <compute_cross_distances@plt>
  mov    0x10(%rsp),%r10
  mov    0x18(%rsp),%r11
  jmp    L186
L52:
  add    $0xb8,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
```

tool_calls: name: extract_symbolic_data
arguments: tag: D8
type_guessed: byte[8]

tool: {"D8": [0x00,0x00,0x00,0x00,0x00,0x00,0xf0,0x3f]}

assistant: ```c
void nn_single_full(int distance_type, int n1, int n2, int d, const float *mat2, const float *mat1, const float *vw_weights, int *vw, float *vwdis, void (*peek_fun)(void *arg, double frac), void *peek_arg) {
  int step1 = ((n1) < (1024) ? (n1) : (1024)), step2 = ((n2) < (1024) ? (n2) : (1024)), m1, m2, imin;
  long i1, i2, j1, j2;
  float dmin;
  float *dists = fvec_new(step1 * step2), *dline;
  for (i1 = 0; i1 < n1; i1 += step1) {
    m1 = ((step1) < (n1 - i1) ? (step1) : (n1 - i1));
    for (j1 = 0; j1 < m1; j1++) {
      vw[j1 + i1] = -1;
      vwdis[j1 + i1] = 1e30;
    }
    for (i2 = 0; i2 < n2; i2 += step2) {
      m2 = ((step2) < (n2 - i2) ? (step2) : (n2 - i2));
      if (distance_type == 2) {
        compute_cross_distances(d, m2, m1, mat2 + i2 * d, mat1 + i1 * d, dists);
      } else {
        compute_cross_distances_alt(distance_type, d, m2, m1, mat2 + i2 * d, mat1 + i1 * d, dists);
      }
      if (vw_weights) {
        for (j1 = 0; j1 < m1; j1++) {
          for (j2 = 0; j2 < m2; j2++) {
            dists[j1 * m2 + j2] *= vw_weights[j2 + i2];
          }
        }
      }
      for (j1 = 0; j1 < m1; j1++) {
        dline = dists + j1 * m2;
        imin = vw[i1 + j1];
        dmin = vwdis[i1 + j1];
        for (j2 = 0; j2 < m2; j2++) {
          if (dline[j2] < dmin) {
            imin = j2 + i2;
            dmin = dline[j2];
          }
        }
        vw[i1 + j1] = imin;
        vwdis[i1 + j1] = dmin;
      }
    }
    if (peek_fun) {
      (*peek_fun)(peek_arg, i1 / (double)n1);
    }
  }
  free(dists);
  if (peek_fun) {
    (*peek_fun)(peek_arg, 1);
  }
}
```