user: 请将这段汇编代码片段转换成等效的C代码:

```asm
<make_poly_from_roots>:
  endbr64
  push   %r14
  pxor   %xmm0,%xmm0
  push   %r13
  lea    -0x1(%rsi),%r13d
  push   %r12
  mov    %rdi,%r12
  push   %rbp
  mov    %rdx,%rbp
  push   %rbx
  mov    %esi,%ebx
  xor    %esi,%esi
  sub    $0x20,%rsp
  movl   $0x3f800000,(%rdx)
  cvtsd2ss (%rdi),%xmm0
  xorps  D5(%rip),%xmm0
  lea    0x8(%rbp),%rdi
  movaps %xmm3,(%rsp)
  movaps %xmm4,0x10(%rsp)
  movss  %xmm0,0x4(%rdx)
  lea    0x0(,%r13,4),%edx
  call   <memset@plt>
  cmp    $0x1,%ebx
  jbe    L17
  mov    %ebx,%eax
  mov    %r13d,%ecx
  mov    %rax,%rdx
  sub    %rcx,%rdx
  lea    0xc(,%rdx,4),%rdx
  cmp    $0x8,%rdx
  jbe    L99
  cmp    $0x2,%r13d
  movaps (%rsp),%xmm3
  movaps 0x10(%rsp),%xmm4
  jbe    L99
  lea    -0x2(%rbx),%edx
  lea    0x8(%r12),%rdi
  mov    %ebx,%r11d
  lea    0x10(%r12,%rdx,8),%r12
  lea    -0xc(%rbp,%rax,4),%rdx
  mov    %ebx,%eax
  and    $0xfffffffc,%r11d
  and    $0x3,%eax
  lea    -0xc(%rbp,%rcx,4),%rsi
  mov    %ebx,%ecx
  mov    %eax,%r8d
  shr    $0x2,%ecx
  lea    -0x2(%rax),%r9d
  lea    0x0(%rbp,%r8,4),%r10
  neg    %rcx
  lea    -0x1(%rax),%r8d
  sub    $0x3,%eax
  mov    %r8,%r13
  mov    %r9,%r14
  lea    0x0(%rbp,%r8,4),%r8
  shl    $0x4,%rcx
  lea    0x0(%rbp,%r9,4),%r9
  lea    0x0(%rbp,%rax,4),%rbp
  nopw   0x0(%rax,%rax,1)
L23:
  movsd  (%rdi),%xmm6
  xor    %eax,%eax
  movapd %xmm6,%xmm5
  unpcklpd %xmm5,%xmm5
  cs nopw 0x0(%rax,%rax,1)
L37:
  movups (%rsi,%rax,1),%xmm2
  movups (%rdx,%rax,1),%xmm1
  shufps $0x1b,%xmm2,%xmm2
  movhlps %xmm2,%xmm4
  cvtps2pd %xmm2,%xmm7
  shufps $0x1b,%xmm1,%xmm1
  mulpd  %xmm5,%xmm7
  cvtps2pd %xmm4,%xmm2
  movhlps %xmm1,%xmm3
  cvtps2pd %xmm1,%xmm0
  mulpd  %xmm5,%xmm2
  cvtps2pd %xmm3,%xmm1
  subpd  %xmm7,%xmm0
  subpd  %xmm2,%xmm1
  cvtpd2ps %xmm0,%xmm0
  cvtpd2ps %xmm1,%xmm1
  movlhps %xmm1,%xmm0
  shufps $0x1b,%xmm0,%xmm0
  movups %xmm0,(%rdx,%rax,1)
  sub    $0x10,%rax
  cmp    %rcx,%rax
  jne    L37
  cmp    %r11d,%ebx
  je     L80
  pxor   %xmm1,%xmm1
  pxor   %xmm0,%xmm0
  cvtss2sd (%r8),%xmm1
  mulsd  %xmm6,%xmm1
  cvtss2sd (%r10),%xmm0
  subsd  %xmm1,%xmm0
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,(%r10)
  test   %r13d,%r13d
  je     L80
  pxor   %xmm1,%xmm1
  pxor   %xmm0,%xmm0
  cvtss2sd (%r9),%xmm1
  mulsd  %xmm6,%xmm1
  cvtss2sd (%r8),%xmm0
  subsd  %xmm1,%xmm0
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,(%r8)
  test   %r14d,%r14d
  je     L80
  pxor   %xmm1,%xmm1
  pxor   %xmm0,%xmm0
  cvtss2sd 0x0(%rbp),%xmm1
  mulsd  %xmm6,%xmm1
  cvtss2sd (%r9),%xmm0
  subsd  %xmm1,%xmm0
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,(%r9)
L80:
  add    $0x8,%rdi
  cmp    %r12,%rdi
  jne    L23
L17:
  add    $0x20,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  ret
L99:
  lea    -0x2(%rbx),%edx
  lea    0x0(,%rcx,4),%r9
  sub    %rax,%rcx
  lea    0x10(%r12,%rdx,8),%r8
  lea    0x0(,%rax,4),%rdx
  lea    0x0(%rbp,%rdx,1),%rdi
  lea    -0x4(%rbp,%rdx,1),%rdx
  lea    0x8(%r12),%rsi
  sub    %r9,%rdx
  nopl   (%rax)
L65:
  movsd  (%rsi),%xmm2
  mov    %rdi,%rax
  nopw   0x0(%rax,%rax,1)
L7:
  pxor   %xmm1,%xmm1
  pxor   %xmm0,%xmm0
  cvtss2sd (%rax,%rcx,4),%xmm1
  mulsd  %xmm2,%xmm1
  cvtss2sd (%rax),%xmm0
  sub    $0x4,%rax
  subsd  %xmm1,%xmm0
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,0x4(%rax)
  cmp    %rdx,%rax
  jne    L7
  add    $0x8,%rsi
  cmp    %r8,%rsi
  jne    L65
  add    $0x20,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  ret
```

tool_calls: name: retrieve_data
arguments: data_tag: D5
datatype: byte[16]

tool: {"D5": [0x00,0x00,0x00,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00]}

assistant: ```c
void make_poly_from_roots(const double *roots, unsigned num_roots, float *poly) {
  unsigned i, j;
  poly[0] = 1;
  poly[1] = -roots[0];
  memset(poly + 2, 0, (num_roots + 1 - 2) * sizeof(*poly));
  for (i = 1; i < num_roots; i++)
    for (j = num_roots; j > 0; j--)
      poly[j] -= poly[j - 1] * roots[i];
}
```