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

```asm
<sp_coletree>:
  endbr64
  push   %r15
  mov    %r8d,%r15d
  push   %r14
  push   %r13
  mov    %rdx,%r13
  push   %r12
  mov    %ecx,%r12d
  push   %rbp
  push   %rbx
  mov    %rsi,%rbx
  sub    $0x38,%rsp
  mov    %rdi,0x20(%rsp)
  mov    %r8d,%edi
  mov    %r8d,0x1c(%rsp)
  mov    %r9,0x10(%rsp)
  call   <mxCallocInt@plt>
  mov    %r15d,%edi
  mov    %rax,0x8(%rsp)
  call   <initialize_disjoint_sets@plt>
  mov    %r12d,%edi
  call   <mxCallocInt@plt>
  mov    %rax,%r15
  test   %r12d,%r12d
  jle    L27
  lea    (%rax,%r12,4),%rcx
  cs nopw 0x0(%rax,%rax,1)
L10:
  mov    0x1c(%rsp),%edx
  add    $0x4,%rax
  mov    %edx,-0x4(%rax)
  cmp    %rcx,%rax
  jne    L10
L27:
  movslq 0x1c(%rsp),%rax
  test   %eax,%eax
  jle    L47
  mov    %rax,0x28(%rsp)
  mov    %rbx,%r9
  xor    %r10d,%r10d
  nopl   0x0(%rax,%rax,1)
L70:
  mov    0x20(%rsp),%rax
  mov    %r10d,%edi
  movslq (%rax,%r10,4),%rcx
  cmp    (%r9),%ecx
  jge    L88
  nopl   0x0(%rax)
L41:
  movslq 0x0(%r13,%rcx,4),%rax
  lea    (%r15,%rax,4),%rsi
  mov    (%rsi),%eax
  cmp    %edi,%eax
  cmovg  %edi,%eax
  add    $0x1,%rcx
  mov    %eax,(%rsi)
  cmp    %ecx,(%r9)
  jg     L41
L88:
  add    $0x1,%r10
  add    $0x4,%r9
  cmp    %r10,0x28(%rsp)
  jne    L70
  xor    %r14d,%r14d
  nopl   (%rax)
L81:
  mov    %r14d,%edi
  mov    %r14d,0x18(%rsp)
  call   <make_set@plt>
  mov    0x8(%rsp),%rdx
  mov    %eax,%ebp
  cltq
  mov    %r14d,(%rdx,%rax,4)
  mov    0x10(%rsp),%rax
  mov    0x1c(%rsp),%edx
  mov    %edx,(%rax,%r14,4)
  mov    0x20(%rsp),%rax
  mov    (%rax,%r14,4),%ecx
  cmp    (%rbx),%ecx
  jge    L33
  movslq %ecx,%r12
  nop
L95:
  movslq 0x0(%r13,%r12,4),%rax
  mov    (%r15,%rax,4),%edi
  cmp    %r14d,%edi
  jge    L7
  call   <find@plt>
  mov    0x8(%rsp),%rdx
  mov    %eax,%esi
  cltq
  movslq (%rdx,%rax,4),%rax
  cmp    %r14d,%eax
  je     L7
  mov    0x10(%rsp),%rdi
  mov    0x18(%rsp),%ecx
  mov    %ecx,(%rdi,%rax,4)
  mov    %ebp,%edi
  call   <link@plt>
  mov    0x8(%rsp),%rdx
  mov    0x18(%rsp),%ecx
  mov    %eax,%ebp
  cltq
  mov    %ecx,(%rdx,%rax,4)
L7:
  add    $0x1,%r12
  cmp    %r12d,(%rbx)
  jg     L95
L33:
  add    $0x1,%r14
  add    $0x4,%rbx
  cmp    %r14,0x28(%rsp)
  jne    L81
L47:
  mov    0x8(%rsp),%rdi
  call   <superlu_free@plt>
  mov    %r15,%rdi
  call   <superlu_free@plt>
  xor    %eax,%eax
  call   <finalize_disjoint_sets@plt>
  add    $0x38,%rsp
  xor    %eax,%eax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
```

assistant: ```c
int sp_coletree(int *acolst, int *acolend, int *arow, int nr, int nc, int *parent) {
  int *root;
  int *firstcol;
  int rset, cset;
  int row, col;
  int rroot;
  int p;
  root = mxCallocInt(nc);
  initialize_disjoint_sets(nc);
  firstcol = mxCallocInt(nr);
  for (row = 0; row < nr; firstcol[row++] = nc)
    ;
  for (col = 0; col < nc; col++)
    for (p = acolst[col]; p < acolend[col]; p++) {
      row = arow[p];
      firstcol[row] = ((firstcol[row]) < (col) ? (firstcol[row]) : (col));
    }
  for (col = 0; col < nc; col++) {
    cset = make_set(col);
    root[cset] = col;
    parent[col] = nc;
    for (p = acolst[col]; p < acolend[col]; p++) {
      row = firstcol[arow[p]];
      if (row >= col)
        continue;
      rset = find(row);
      rroot = root[rset];
      if (rroot != col) {
        parent[rroot] = col;
        cset = link(cset, rset);
        root[cset] = col;
      }
    }
  }
  superlu_free(root);
  superlu_free(firstcol);
  finalize_disjoint_sets();
  return 0;
}
```