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

```asm
<test_quaddobl_multiplicity_structure>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %r14
  push   %r13
  push   %r12
  mov    %edi,%r12d
  push   %rbx
  sub    $0x20,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,-0x28(%rbp)
  xor    %eax,%eax
  lea    0x1(%rdi),%eax
  mov    %rsp,%rcx
  cltq
  lea    0xf(,%rax,4),%rax
  mov    %rax,%rdx
  and    $0xfffffffffffff000,%rax
  sub    %rax,%rcx
  and    $0xfffffffffffffff0,%rdx
  cmp    %rcx,%rsp
  je     L20
L25:
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  cmp    %rcx,%rsp
  jne    L25
L20:
  and    $0xfff,%edx
  sub    %rdx,%rsp
  test   %rdx,%rdx
  jne    L56
L47:
  lea    D35(%rip),%rdi
  lea    -0x34(%rbp),%r13
  mov    %rsp,%r14
  call   <puts@plt>
  xor    %eax,%eax
  call   <syscon_read_quaddobl_system@plt>
  mov    %r13,%rdi
  call   <syscon_number_of_quaddobl_polynomials@plt>
  mov    -0x34(%rbp),%esi
  lea    D6(%rip),%rdi
  xor    %eax,%eax
  call   <printf@plt>
  xor    %eax,%eax
  call   <solcon_read_quaddobl_solutions@plt>
  lea    -0x30(%rbp),%rdi
  call   <solcon_number_of_quaddobl_solutions@plt>
  mov    -0x30(%rbp),%esi
  lea    D76(%rip),%rdi
  xor    %eax,%eax
  call   <printf@plt>
  mov    %r13,%rdi
  call   <solcon_dimension_of_quaddobl_solutions@plt>
  mov    -0x34(%rbp),%esi
  lea    D0(%rip),%rdi
  xor    %eax,%eax
  call   <printf@plt>
  lea    -0x2c(%rbp),%rdx
  mov    %r14,%rcx
  mov    %r12d,%edi
  movsd  D7(%rip),%xmm0
  mov    $0x1,%esi
  call   <quaddobl_multiplicity_structure@plt>
  mov    -0x2c(%rbp),%esi
  lea    D26(%rip),%rdi
  xor    %eax,%eax
  call   <printf@plt>
  xor    %eax,%eax
  lea    D61(%rip),%rdi
  call   <printf@plt>
  test   %r12d,%r12d
  js     L67
  xor    %ebx,%ebx
  lea    D21(%rip),%r13
  nopw   0x0(%rax,%rax,1)
L45:
  mov    (%r14,%rbx,4),%esi
  mov    %r13,%rdi
  xor    %eax,%eax
  add    $0x1,%rbx
  call   <printf@plt>
  cmp    %ebx,%r12d
  jge    L45
L67:
  mov    $0xa,%edi
  call   <putchar@plt>
  mov    -0x28(%rbp),%rax
  sub    %fs:0x28,%rax
  jne    L37
  lea    -0x20(%rbp),%rsp
  pop    %rbx
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %rbp
  ret
  nopl   (%rax)
L56:
  orq    $0x0,-0x8(%rsp,%rdx,1)
  jmp    L47
L37:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: unpack_data
arguments: tag: D35
datatype: string
name: unpack_data
arguments: tag: D6
datatype: string
name: unpack_data
arguments: tag: D76
datatype: string
name: unpack_data
arguments: tag: D0
datatype: string
name: unpack_data
arguments: tag: D7
datatype: byte[8]
name: unpack_data
arguments: tag: D26
datatype: string
name: unpack_data
arguments: tag: D61
datatype: string
name: unpack_data
arguments: tag: D21
datatype: string

tool: D35: 
Testing with quaddobl arithmetic ...

tool: D6: The system container has %d polynomials.


tool: D76: The solution container has size %d.


tool: D0: The solutions in the container have dimension %d.


tool: {"D7": [0x3a,0x8c,0x30,0xe2,0x8e,0x79,0x45,0x3e]}

tool: D26: The multiplicity : %d.


tool: D61: Values of the Hilbert function :

tool: D21:  %d

assistant: ```c
void test_quaddobl_multiplicity_structure(int order) {
  const double tol = 1.0e-8;
  int fail, dim, len, mult;
  int hilb[order + 1];
  printf("\nTesting with quaddobl arithmetic ...\n");
  fail = syscon_read_quaddobl_system();
  fail = syscon_number_of_quaddobl_polynomials(&dim);
  printf("The system container has %d polynomials.\n", dim);
  fail = solcon_read_quaddobl_solutions();
  fail = solcon_number_of_quaddobl_solutions(&len);
  printf("The solution container has size %d.\n", len);
  fail = solcon_dimension_of_quaddobl_solutions(&dim);
  printf("The solutions in the container have dimension %d.\n", dim);
  fail = quaddobl_multiplicity_structure(order, 1, tol, &mult, hilb);
  printf("The multiplicity : %d.\n", mult);
  printf("Values of the Hilbert function :");
  int k;
  for (k = 0; k < order + 1; k++)
    printf(" %d", hilb[k]);
  printf("\n");
}
```