user: 请显示与下面列出的汇编代码相匹配的C语言实现：

```asm
<quicksortf>:
  endbr64
  push   %r15
  mov    %rdi,%r15
  mov    $0x1,%edi
  push   %r14
  mov    %rsi,%r14
  mov    $0xc8,%esi
  push   %r13
  push   %r12
  push   %rbp
  xor    %ebp,%ebp
  push   %rbx
  mov    $0x1,%ebx
  sub    $0x28,%rsp
  mov    %rdx,0x10(%rsp)
  call   <lvector@plt>
  movq   $0x2,(%rsp)
  mov    0x10(%rsp),%r8
  mov    %rax,0x8(%rsp)
  nopl   (%rax)
L146:
  mov    (%rsp),%rsi
  mov    %r15,%rax
  sub    %rbx,%rax
  mov    %rsi,%r9
  cmp    $0x6,%rax
  ja     L163
  cmp    %rsi,%r15
  jb     L62
  mov    (%rsp),%r11
  mov    %rbx,%r10
  shl    $0x2,%r11
  lea    (%r14,%r11,1),%r12
  add    %r8,%r11
  nopw   0x0(%rax,%rax,1)
L10:
  movss  (%r12),%xmm1
  movss  (%r11),%xmm2
  mov    %r12,%r9
  mov    %r11,%rax
  cmp    %r10,%rbx
  ja     L11
  mov    %r11,%rdi
  mov    %r12,%rcx
  mov    %r10,%rsi
  jmp    L237
  nopl   0x0(%rax)
L16:
  movss  %xmm0,(%rdx)
  movss  -0x4(%rax),%xmm0
  sub    $0x1,%rsi
  lea    -0x4(%rdi),%rdi
  movss  %xmm0,(%rax)
  cmp    %rsi,%rbx
  ja     L89
L237:
  mov    %rcx,%rdx
  sub    $0x4,%rcx
  mov    %rdi,%rax
  movss  -0x4(%rdx),%xmm0
  mov    %rdx,%r9
  comiss %xmm0,%xmm1
  jb     L16
L11:
  movss  %xmm1,(%r9)
  add    $0x4,%r12
  add    $0x4,%r11
  movss  %xmm2,(%rax)
  lea    0x1(%r10),%rax
  add    $0x2,%r10
  cmp    %r15,%r10
  ja     L62
  mov    %rax,%r10
  jmp    L10
  nopl   0x0(%rax)
L89:
  mov    %rdi,%rax
  mov    %rcx,%r9
  jmp    L11
  nopl   0x0(%rax,%rax,1)
L62:
  test   %ebp,%ebp
  je     L150
  mov    0x8(%rsp),%rbx
  movslq %ebp,%rax
  sub    $0x2,%ebp
  mov    (%rbx,%rax,8),%r15
  mov    -0x8(%rbx,%rax,8),%rbx
  lea    0x1(%rbx),%rax
  mov    %rax,(%rsp)
  jmp    L146
L163:
  mov    (%rsp),%rax
  lea    (%r15,%rbx,1),%rdx
  shr    %rdx
  shl    $0x2,%rax
  shl    $0x2,%rdx
  lea    (%r14,%rdx,1),%rcx
  lea    (%r14,%rax,1),%r10
  add    %r8,%rdx
  movss  (%rcx),%xmm0
  movss  (%r10),%xmm1
  lea    (%r8,%rax,1),%r11
  sub    $0x4,%rax
  movss  %xmm1,(%rcx)
  lea    (%r14,%rax,1),%rcx
  movss  %xmm0,(%r10)
  movss  (%r11),%xmm1
  movss  (%rdx),%xmm0
  movss  %xmm1,(%rdx)
  lea    0x0(,%r15,4),%rdx
  lea    (%r14,%rdx,1),%rsi
  movss  %xmm0,(%r11)
  movss  (%rcx),%xmm1
  movss  (%rsi),%xmm0
  comiss %xmm0,%xmm1
  jbe    L239
  lea    (%r8,%rax,1),%r12
  lea    (%r8,%rdx,1),%rdi
  movss  %xmm0,(%rcx)
  movss  %xmm1,(%rsi)
  movss  (%r12),%xmm0
  movss  (%rdi),%xmm1
  movss  %xmm1,(%r12)
  movss  %xmm0,(%rdi)
  movss  (%rsi),%xmm0
L239:
  movss  (%r10),%xmm1
  comiss %xmm0,%xmm1
  jbe    L186
  add    %r8,%rdx
  movss  %xmm0,(%r10)
  movss  %xmm1,(%rsi)
  movss  (%rdx),%xmm1
  movss  (%r11),%xmm0
  movss  %xmm1,(%r11)
  movss  %xmm0,(%rdx)
  movss  (%r10),%xmm1
L186:
  movss  (%rcx),%xmm0
  comiss %xmm1,%xmm0
  ja     L113
  movss  (%r11),%xmm3
L22:
  mov    %r15,%rdx
  nopw   0x0(%rax,%rax,1)
L111:
  lea    0x1(%r9),%r12
  movss  (%r14,%r12,4),%xmm2
  comiss %xmm2,%xmm1
  ja     L23
  lea    -0x1(%rdx),%rcx
  lea    (%r14,%rcx,4),%rax
  jmp    L213
  nopl   0x0(%rax)
L228:
  sub    $0x1,%rcx
L213:
  mov    %rax,%rdi
  movss  (%rax),%xmm0
  sub    $0x4,%rax
  mov    %rdx,%r13
  lea    0x0(,%rcx,4),%rsi
  mov    %rcx,%rdx
  comiss %xmm1,%xmm0
  ja     L228
  add    %r8,%rsi
  cmp    %rcx,%r12
  ja     L222
  movss  %xmm0,(%r14,%r12,4)
  movss  %xmm2,(%rdi)
  movss  (%r8,%r12,4),%xmm0
  movss  (%rsi),%xmm2
  movss  %xmm2,(%r8,%r12,4)
  movss  %xmm0,(%rsi)
L23:
  mov    %r12,%r9
  jmp    L111
L222:
  movss  %xmm0,(%r10)
  movss  (%rsi),%xmm0
  add    $0x2,%ebp
  movss  %xmm0,(%r11)
  movss  %xmm1,(%rdi)
  movss  %xmm3,(%rsi)
  cmp    $0xc8,%ebp
  jg     L0
L172:
  mov    0x8(%rsp),%rdi
  movslq %ebp,%rax
  mov    %r15,%rcx
  sub    $0x2,%r13
  shl    $0x3,%rax
  sub    %r9,%rcx
  lea    (%rdi,%rax,1),%rdx
  lea    -0x8(%rdi,%rax,1),%rax
  cmp    %r13,%rcx
  jb     L74
  mov    %r15,(%rdx)
  mov    %r13,%r15
  mov    %r12,(%rax)
  jmp    L146
L113:
  add    %r8,%rax
  movss  %xmm1,(%rcx)
  movss  %xmm0,(%r10)
  movss  (%rax),%xmm3
  movss  (%r11),%xmm0
  movss  %xmm0,(%rax)
  movss  %xmm3,(%r11)
  movss  (%r10),%xmm1
  jmp    L22
L74:
  mov    %r13,(%rdx)
  mov    %rbx,(%rax)
  lea    0x1(%r12),%rax
  mov    %r12,%rbx
  mov    %rax,(%rsp)
  jmp    L146
L0:
  lea    D0(%rip),%rdi
  mov    %r8,0x18(%rsp)
  mov    %r9,0x10(%rsp)
  call   <nrerror@plt>
  mov    0x18(%rsp),%r8
  mov    0x10(%rsp),%r9
  jmp    L172
L150:
  mov    0x8(%rsp),%rdi
  add    $0x28,%rsp
  mov    $0xc8,%edx
  mov    $0x1,%esi
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  jmp    1090 <free_lvector@plt>
```

tool_calls: name: extract_symbolic_data
arguments: data_tag: D0
type_infered: string

tool: D0: NSTACK too small in sort.

assistant: ```c
void quicksortf(unsigned long n, float *arr, float *brr) {
  unsigned long i, ir = n, j, k, l = 1;
  float b;
  long *istack;
  int jstack = 0;
  float a, temp;
  istack = lvector(1, 200);
  for (;;) {
    if (ir - l < 7) {
      for (j = l + 1; j <= ir; j++) {
        a = arr[j];
        b = brr[j];
        for (i = j - 1; i >= l; i--) {
          if (arr[i] <= a)
            break;
          arr[i + 1] = arr[i];
          brr[i + 1] = brr[i];
        }
        arr[i + 1] = a;
        brr[i + 1] = b;
      }
      if (jstack == 0)
        break;
      ir = istack[jstack--];
      l = istack[jstack--];
    } else {
      k = (l + ir) >> 1;
      temp = (arr[k]);
      (arr[k]) = (arr[l + 1]);
      (arr[l + 1]) = temp;
      temp = (brr[k]);
      (brr[k]) = (brr[l + 1]);
      (brr[l + 1]) = temp;
      if (arr[l] > arr[ir]) {
        temp = (arr[l]);
        (arr[l]) = (arr[ir]);
        (arr[ir]) = temp;
        temp = (brr[l]);
        (brr[l]) = (brr[ir]);
        (brr[ir]) = temp;
      }
      if (arr[l + 1] > arr[ir]) {
        temp = (arr[l + 1]);
        (arr[l + 1]) = (arr[ir]);
        (arr[ir]) = temp;
        temp = (brr[l + 1]);
        (brr[l + 1]) = (brr[ir]);
        (brr[ir]) = temp;
      }
      if (arr[l] > arr[l + 1]) {
        temp = (arr[l]);
        (arr[l]) = (arr[l + 1]);
        (arr[l + 1]) = temp;
        temp = (brr[l]);
        (brr[l]) = (brr[l + 1]);
        (brr[l + 1]) = temp;
      }
      i = l + 1;
      j = ir;
      a = arr[l + 1];
      b = brr[l + 1];
      for (;;) {
        do
          i++;
        while (arr[i] < a);
        do
          j--;
        while (arr[j] > a);
        if (j < i)
          break;
        temp = (arr[i]);
        (arr[i]) = (arr[j]);
        (arr[j]) = temp;
        temp = (brr[i]);
        (brr[i]) = (brr[j]);
        (brr[j]) = temp;
      }
      arr[l + 1] = arr[j];
      brr[l + 1] = brr[j];
      arr[j] = a;
      brr[j] = b;
      jstack += 2;
      if (jstack > 200)
        nrerror("NSTACK too small in sort.");
      if (ir - i + 1 >= j - 1) {
        istack[jstack] = ir;
        istack[jstack - 1] = i;
        ir = j - 1;
      } else {
        istack[jstack] = j - 1;
        istack[jstack - 1] = l;
        l = i;
      }
    }
  }
  free_lvector(istack, 1, 200);
}
```