user: 下面的汇编指令对应的C源代码是什么:

```asm
<canonical_perm_ext>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x98,%rsp
  mov    %rdi,0x18(%rsp)
  mov    %esi,%ebp
  mov    %edx,0x2c(%rsp)
  mov    %rcx,0x30(%rsp)
  mov    %r8d,%r14d
  mov    %r9,0x38(%rsp)
  mov    0xd8(%rsp),%r13
  mov    0xe8(%rsp),%rax
  mov    %rax,0x48(%rsp)
  mov    0xf8(%rsp),%rax
  mov    %rax,0x50(%rsp)
  mov    0x108(%rsp),%rax
  mov    %rax,0x58(%rsp)
  mov    0x110(%rsp),%rax
  mov    %rax,0x60(%rsp)
  mov    0x120(%rsp),%rax
  mov    %rax,0x68(%rsp)
  mov    0x130(%rsp),%rax
  mov    %rax,0x40(%rsp)
  mov    %fs:0x28,%rax
  mov    %rax,0x88(%rsp)
  xor    %eax,%eax
  mov    0xe0(%rsp),%eax
  lea    0x0(,%rax,4),%edi
  call   <malloc@plt>
  mov    %rax,%r15
  lea    0x0(,%rbp,4),%ebx
  mov    %ebx,%edi
  call   <malloc@plt>
  mov    %rax,%r12
  mov    %ebx,%edi
  call   <malloc@plt>
  mov    %rax,0x20(%rsp)
  mov    %ebx,%edi
  call   <malloc@plt>
  mov    %rax,0x8(%rsp)
  mov    %ebx,%edi
  call   <malloc@plt>
  mov    %rax,0x10(%rsp)
  movl   $0x0,0x7c(%rsp)
  mov    %ebp,%ebx
  imul   0xd0(%rsp),%ebx
  lea    0x0(,%rbx,4),%edi
  call   <malloc@plt>
  mov    %rax,0x80(%rsp)
  cmpl   $0x0,0x2c(%rsp)
  jne    L24
  sub    $0x8,%rsp
  lea    0x80(%rsp),%rax
  push   %rax
  mov    0x20(%rsp),%r9
  mov    %ebp,%r8d
  mov    0xe0(%rsp),%ecx
  mov    0x48(%rsp),%rbx
  mov    %rbx,%rdx
  mov    %r14d,%esi
  mov    0x40(%rsp),%rdi
  call   <nonstable_points@plt>
  lea    0x8c(%rsp),%rax
  push   %rax
  lea    0x8c(%rsp),%rax
  push   %rax
  lea    0xa0(%rsp),%rax
  push   %rax
  lea    0x98(%rsp),%rax
  push   %rax
  mov    0x38(%rsp),%r9
  mov    %ebp,%r8d
  mov    0x100(%rsp),%ecx
  mov    %rbx,%rdx
  mov    0xa8(%rsp),%esi
  mov    0x40(%rsp),%rdi
  call   <schreier_sims@plt>
  add    $0x30,%rsp
L36:
  mov    %ebp,%edx
  mov    %r12,%rsi
  mov    0x18(%rsp),%rdi
  call   <inverse@plt>
  cmpl   $0x0,0xe0(%rsp)
  jle    L52
  mov    0xe0(%rsp),%eax
  lea    (%r15,%rax,4),%r14
  mov    %r15,%rbx
  sub    %r15,%r13
L53:
  mov    0x0(%r13,%rbx,1),%edi
  mov    %ebp,%edx
  mov    %r12,%rsi
  call   <onpoints@plt>
  mov    %eax,(%rbx)
  add    $0x4,%rbx
  cmp    %r14,%rbx
  jne    L53
L52:
  sub    $0x8,%rsp
  push   %r12
  mov    0xf0(%rsp),%eax
  push   %rax
  push   %r15
  lea    0x94(%rsp),%r9
  mov    0xa0(%rsp),%r8
  mov    0x90(%rsp),%ecx
  mov    0x28(%rsp),%rdx
  mov    %ebp,%esi
  mov    0x38(%rsp),%rdi
  call   <coset_rep@plt>
  add    $0x20,%rsp
  mov    0x100(%rsp),%eax
  add    0x128(%rsp),%eax
  jne    L44
  mov    %ebp,%edx
  mov    0x40(%rsp),%rsi
  mov    %r12,%rdi
  call   <copy_list@plt>
L29:
  mov    %r15,%rdi
  call   <free@plt>
  mov    %r12,%rdi
  call   <free@plt>
  mov    0x20(%rsp),%rdi
  call   <free@plt>
  mov    0x8(%rsp),%rdi
  call   <free@plt>
  mov    0x10(%rsp),%rdi
  call   <free@plt>
  mov    0x80(%rsp),%rdi
  call   <free@plt>
  mov    0x88(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L22
  add    $0x98,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L24:
  mov    %r14d,%edx
  mov    0x8(%rsp),%rsi
  mov    0x30(%rsp),%rdi
  call   <copy_list@plt>
  mov    %r14d,0x70(%rsp)
  mov    %ebx,%edx
  mov    0x80(%rsp),%rsi
  mov    0x38(%rsp),%rdi
  call   <copy_list@plt>
  mov    0xd0(%rsp),%eax
  mov    %eax,0x74(%rsp)
  jmp    L36
L44:
  sub    $0x8,%rsp
  lea    0x80(%rsp),%rax
  push   %rax
  mov    0x20(%rsp),%r14
  mov    %r14,%r9
  mov    $0x1,%r8d
  mov    0xf0(%rsp),%ecx
  mov    %r15,%rdx
  mov    0x80(%rsp),%esi
  mov    0x18(%rsp),%rbx
  mov    %rbx,%rdi
  call   <complement@plt>
  mov    0x88(%rsp),%edx
  mov    %rbx,%rsi
  mov    %r14,%rdi
  call   <copy_list@plt>
  mov    0x88(%rsp),%eax
  mov    %eax,0x80(%rsp)
  mov    0x90(%rsp),%rdx
  add    $0x8,%rsp
  lea    0x7c(%rsp),%rax
  push   %rax
  mov    %rdx,%r9
  mov    %ebp,%r8d
  mov    0x84(%rsp),%ecx
  mov    0xf0(%rsp),%esi
  mov    %r15,%rdi
  call   <stabilizer@plt>
  mov    0x30(%rsp),%r14
  push   %r14
  mov    0x140(%rsp),%eax
  push   %rax
  push   0x88(%rsp)
  mov    0x140(%rsp),%eax
  push   %rax
  push   0x90(%rsp)
  push   0x90(%rsp)
  mov    0x140(%rsp),%eax
  push   %rax
  push   0x98(%rsp)
  mov    0x140(%rsp),%eax
  push   %rax
  push   0xa0(%rsp)
  mov    0xd4(%rsp),%r9d
  mov    0xe0(%rsp),%r8
  mov    0xd0(%rsp),%ecx
  mov    %rbx,%rdx
  mov    %ebp,%esi
  mov    %r12,%rdi
  call   <double_coset_rep@plt>
  add    $0x60,%rsp
  mov    %ebp,%edx
  mov    0x40(%rsp),%rsi
  mov    %r14,%rdi
  call   <copy_list@plt>
  jmp    L29
L22:
  call   <__stack_chk_fail@plt>
```

assistant: ```c
void canonical_perm_ext(int *PERM, int n, int SGSQ, int *base, int bl, int *GS, int m, int *frees, int fl, int *vds, int vdsl, int *dummies, int dl, int *mQ, int *vrs, int vrsl, int *repes, int rl, int *CPERM) {
  int i;
  int *freeps = (int *)malloc(fl * sizeof(int));
  int *PERM1 = (int *)malloc(n * sizeof(int));
  int *PERM2 = (int *)malloc(n * sizeof(int));
  int *newbase = (int *)malloc(n * sizeof(int)), newbl;
  int **newGS = NULL;
  int *pointer;
  int newm;
  int *tmpbase = (int *)malloc(n * sizeof(int)), tmpbl;
  int num = 0;
  pointer = (int *)malloc(m * n * sizeof(int));
  newGS = &pointer;
  if (!SGSQ) {
    nonstable_points(base, bl, GS, m, n, tmpbase, &tmpbl);
    schreier_sims(tmpbase, tmpbl, GS, m, n, newbase, &newbl, newGS, &newm, &num);
  } else {
    copy_list(base, newbase, bl);
    newbl = bl;
    copy_list(GS, *newGS, m * n);
    newm = m;
  }
  inverse(PERM, PERM1, n);
  for (i = 0; i < fl; i++) {
    freeps[i] = onpoints(frees[i], PERM1, n);
  }
  coset_rep(PERM, n, newbase, newbl, *newGS, &newm, freeps, fl, PERM1);
  if (dl + rl == 0) {
    copy_list(PERM1, CPERM, n);
  } else {
    complement(newbase, newbl, freeps, fl, 1, tmpbase, &tmpbl);
    copy_list(tmpbase, newbase, tmpbl);
    newbl = tmpbl;
    stabilizer(freeps, fl, *newGS, newm, n, *newGS, &newm);
    double_coset_rep(PERM1, n, newbase, newbl, *newGS, newm, vds, vdsl, dummies, dl, mQ, vrs, vrsl, repes, rl, PERM2);
    copy_list(PERM2, CPERM, n);
  }
  free(freeps);
  free(PERM1);
  free(PERM2);
  free(newbase);
  free(tmpbase);
  free(*newGS);
}
```