user: What is the c source code of the assembly code below:

```asm
<merge>:
  endbr64
  push   %rbp
  mov    %rdi,%r8
  mov    %esi,%r9d
  mov    %rsp,%rbp
  push   %r15
  push   %r14
  movslq %edx,%r14
  push   %r13
  mov    %ecx,%r13d
  sub    %r14d,%ecx
  push   %r12
  push   %rbx
  sub    $0x38,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,-0x38(%rbp)
  mov    %r14d,%eax
  mov    %rsp,%rdi
  sub    %esi,%eax
  lea    0x2(%rax),%edx
  lea    0x1(%rax),%r15d
  movslq %edx,%rdx
  lea    0xf(,%rdx,4),%rdx
  mov    %rdx,%rsi
  and    $0xfffffffffffff000,%rdx
  sub    %rdx,%rdi
  and    $0xfffffffffffffff0,%rsi
  cmp    %rdi,%rsp
  je     L105
L86:
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  cmp    %rdi,%rsp
  jne    L86
L105:
  and    $0xfff,%esi
  sub    %rsi,%rsp
  test   %rsi,%rsi
  jne    L37
L163:
  lea    0x1(%rcx),%edx
  mov    %rsp,%rdi
  mov    %rsp,%rbx
  movslq %edx,%rdx
  lea    0xf(,%rdx,4),%rdx
  mov    %rdx,%rsi
  and    $0xfffffffffffff000,%rdx
  sub    %rdx,%rdi
  and    $0xfffffffffffffff0,%rsi
  cmp    %rdi,%rsp
  je     L85
L62:
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  cmp    %rdi,%rsp
  jne    L62
L85:
  and    $0xfff,%esi
  sub    %rsi,%rsp
  test   %rsi,%rsi
  jne    L67
L33:
  mov    %rsp,%r12
  test   %r15d,%r15d
  jle    L144
  lea    0x4(,%rax,4),%rdx
  movslq %r9d,%rax
  mov    %rbx,%rdi
  mov    %ecx,-0x54(%rbp)
  lea    (%r8,%rax,4),%rsi
  mov    %r9d,-0x50(%rbp)
  mov    %r8,-0x48(%rbp)
  call   <memcpy@plt>
  mov    -0x48(%rbp),%r8
  mov    -0x50(%rbp),%r9d
  mov    -0x54(%rbp),%ecx
L144:
  test   %ecx,%ecx
  jle    L155
  movslq %ecx,%rcx
  lea    0x4(%r8,%r14,4),%rsi
  mov    %r12,%rdi
  mov    %r9d,-0x54(%rbp)
  lea    0x0(,%rcx,4),%rdx
  mov    %rcx,-0x50(%rbp)
  mov    %r8,-0x48(%rbp)
  call   <memcpy@plt>
  mov    -0x48(%rbp),%r8
  mov    -0x50(%rbp),%rcx
  mov    -0x54(%rbp),%r9d
L25:
  mov    D7(%rip),%rax
  movslq %r15d,%r15
  mov    (%rax),%eax
  mov    %eax,(%rbx,%r15,4)
  mov    %eax,(%r12,%rcx,4)
  cmp    %r13d,%r9d
  jg     L9
  movslq %r9d,%rdx
  sub    %r9d,%r13d
  xor    %edi,%edi
  xor    %esi,%esi
  add    %rdx,%r13
  lea    (%r8,%rdx,4),%rax
  lea    0x4(%r8,%r13,4),%r8
  jmp    L38
  nopw   0x0(%rax,%rax,1)
L110:
  mov    %edx,(%rax)
  add    $0x4,%rax
  add    $0x1,%esi
  cmp    %rax,%r8
  je     L9
L38:
  movslq %edi,%rdx
  mov    (%r12,%rdx,4),%ecx
  movslq %esi,%rdx
  mov    (%rbx,%rdx,4),%edx
  cmp    %edx,%ecx
  jg     L110
  mov    %ecx,%edx
  add    $0x4,%rax
  add    $0x1,%edi
  mov    %edx,-0x4(%rax)
  cmp    %rax,%r8
  jne    L38
L9:
  mov    -0x38(%rbp),%rax
  sub    %fs:0x28,%rax
  jne    L112
  lea    -0x28(%rbp),%rsp
  pop    %rbx
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  pop    %rbp
  ret
  xchg   %ax,%ax
L37:
  orq    $0x0,-0x8(%rsp,%rsi,1)
  jmp    L163
  nopl   0x0(%rax,%rax,1)
L155:
  movslq %ecx,%rcx
  jmp    L25
L67:
  orq    $0x0,-0x8(%rsp,%rsi,1)
  jmp    L33
L112:
  call   <__stack_chk_fail@plt>
```

assistant: ```c
void merge(int array[], int p, int q, int r) {
  int i, j, k;
  int n1 = q - p + 1;
  int n2 = r - q;
  int L[n1 + 1], R[n2 + 1];
  for (i = 0; i < n1; ++i)
    L[i] = array[p + i];
  for (j = 0; j < n2; ++j)
    R[j] = array[q + j + 1];
  L[n1] = INFINITY;
  R[n2] = INFINITY;
  i = j = 0;
  for (k = p; k <= r; ++k)
    if (R[j] > L[i])
      array[k] = L[i++];
    else
      array[k] = R[j++];
}
```