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     L48
L69:
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  cmp    %rcx,%rsp
  jne    L69
L48:
  and    $0xfff,%edx
  sub    %rdx,%rsp
  test   %rdx,%rdx
  jne    L15
L28:
  lea    D77(%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    D13(%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    D50(%rip),%rdi
  xor    %eax,%eax
  call   <printf@plt>
  mov    %r13,%rdi
  call   <solcon_dimension_of_quaddobl_solutions@plt>
  mov    -0x34(%rbp),%esi
  lea    D38(%rip),%rdi
  xor    %eax,%eax
  call   <printf@plt>
  lea    -0x2c(%rbp),%rdx
  mov    %r14,%rcx
  mov    %r12d,%edi
  movsd  D59(%rip),%xmm0
  mov    $0x1,%esi
  call   <quaddobl_multiplicity_structure@plt>
  mov    -0x2c(%rbp),%esi
  lea    D40(%rip),%rdi
  xor    %eax,%eax
  call   <printf@plt>
  xor    %eax,%eax
  lea    D79(%rip),%rdi
  call   <printf@plt>
  test   %r12d,%r12d
  js     L34
  xor    %ebx,%ebx
  lea    D34(%rip),%r13
  nopw   0x0(%rax,%rax,1)
L13:
  mov    (%r14,%rbx,4),%esi
  mov    %r13,%rdi
  xor    %eax,%eax
  add    $0x1,%rbx
  call   <printf@plt>
  cmp    %ebx,%r12d
  jge    L13
L34:
  mov    $0xa,%edi
  call   <putchar@plt>
  mov    -0x28(%rbp),%rax
  sub    %fs:0x28,%rax
  jne    L25
  lea    -0x20(%rbp),%rsp
  pop    %rbx
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %rbp
  ret
  nopl   (%rax)
L15:
  orq    $0x0,-0x8(%rsp,%rdx,1)
  jmp    L28
L25:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: retrieve_data
arguments: label: D77
type_infered: string
name: retrieve_data
arguments: label: D13
type_infered: string
name: retrieve_data
arguments: label: D50
type_infered: string
name: retrieve_data
arguments: label: D38
type_infered: string
name: retrieve_data
arguments: label: D59
type_infered: byte[8]
name: retrieve_data
arguments: label: D40
type_infered: string
name: retrieve_data
arguments: label: D79
type_infered: string
name: retrieve_data
arguments: label: D34
type_infered: string

tool: D77: 
Testing with quaddobl arithmetic ...

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


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


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


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

tool: D40: The multiplicity : %d.


tool: D79: Values of the Hilbert function :

tool: D34:  %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");
}
```