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

```asm
<make_constant>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbx
  sub    $0x38,%rsp
  mov    %rdi,-0x48(%rbp)
  mov    %rdx,%r13
  mov    %r8,-0x50(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x38(%rbp)
  xor    %eax,%eax
  test   %rsi,%rsi
  sete   %al
  test   %rdx,%rdx
  sete   %dl
  or     %dl,%al
  jne    L158
  mov    %rsi,%r12
  test   %rdi,%rdi
  je     L158
  movsbl %cl,%r15d
  mov    %r15d,%r8d
  mov    %r13,%rcx
  lea    D14(%rip),%rdx
  mov    $0x0,%esi
  mov    $0x0,%edi
  call   <snprintf@plt>
  mov    %eax,%r14d
  mov    $0x0,%ebx
  test   %eax,%eax
  jle    L134
  lea    0x1(%rax),%esi
  movslq %esi,%rax
  add    $0xf,%rax
  mov    %rax,%rcx
  and    $0xfffffffffffffff0,%rcx
  and    $0xfffffffffffff000,%rax
  mov    %rsp,%rdx
  sub    %rax,%rdx
L103:
  cmp    %rdx,%rsp
  je     L72
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L103
L72:
  mov    %rcx,%rax
  and    $0xfff,%eax
  sub    %rax,%rsp
  test   %rax,%rax
  je     L122
  orq    $0x0,-0x8(%rsp,%rax,1)
L122:
  mov    %rsp,-0x58(%rbp)
  mov    %r15d,%r8d
  mov    %r13,%rcx
  lea    D14(%rip),%rdx
  mov    %rsp,%rdi
  call   <snprintf@plt>
  mov    $0x0,%ebx
  cmp    %r14d,%eax
  jne    L134
  mov    %r12,%rdi
  call   <EVP_MD_size@plt>
  mov    %eax,%r15d
  cltq
  add    $0xf,%rax
  mov    %rax,%rcx
  and    $0xfffffffffffffff0,%rcx
  and    $0xfffffffffffff000,%rax
  mov    %rsp,%rdx
  sub    %rax,%rdx
L117:
  cmp    %rdx,%rsp
  je     L13
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L117
L13:
  mov    %rcx,%rax
  and    $0xfff,%eax
  sub    %rax,%rsp
  test   %rax,%rax
  je     L136
  orq    $0x0,-0x8(%rsp,%rax,1)
L136:
  mov    %rsp,%r14
  mov    -0x58(%rbp),%rbx
  mov    %rbx,%rdi
  call   <strlen@plt>
  mov    %eax,%esi
  mov    $0x0,%r9d
  mov    %r12,%r8
  mov    $0x0,%ecx
  mov    %rsp,%rdx
  mov    %rbx,%rdi
  call   <EVP_Digest@plt>
  test   %eax,%eax
  je     L61
  mov    $0x0,%r13d
L29:
  mov    -0x50(%rbp),%rcx
  mov    %r15d,%edx
  mov    %r14,%rsi
  mov    -0x48(%rbp),%rdi
  call   <attempt@plt>
  mov    %rax,%rbx
  mov    $0x0,%r9d
  mov    %r12,%r8
  mov    $0x0,%ecx
  mov    %r14,%rdx
  mov    %r15d,%esi
  mov    %r14,%rdi
  call   <EVP_Digest@plt>
  add    $0x1,%r13
  cmp    $0x3e7,%r13
  ja     L134
  test   %rbx,%rbx
  je     L29
  jmp    L134
L158:
  mov    $0x0,%ebx
L134:
  mov    -0x38(%rbp),%rax
  sub    %fs:0x28,%rax
  jne    L131
  mov    %rbx,%rax
  lea    -0x28(%rbp),%rsp
  pop    %rbx
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  pop    %rbp
  ret
L61:
  mov    $0x0,%ebx
  jmp    L134
L131:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: retrieve_data
arguments: data_tag: D14
type_guessed: string

tool: D14: %s point generation seed (%c)

assistant: ```c
EC_POINT *make_constant(const EC_GROUP *grp, const EVP_MD *md, const char *oid, char var, BN_CTX *ctx) {
  EC_POINT *p = NULL;
  int len;
  if (grp == NULL || md == NULL || oid == NULL)
    return NULL;
  len = snprintf(NULL, 0, "%s point generation seed (%c)", oid, var);
  if (len < 1)
    return NULL;
  char seed[len + 1];
  if (snprintf(seed, sizeof(seed), "%s point generation seed (%c)", oid, var) != len)
    return NULL;
  uint8_t digest[EVP_MD_size(md)];
  if (!EVP_Digest(seed, strlen(seed), digest, NULL, md, NULL))
    return NULL;
  for (size_t i = 0; i < 1000 && p == NULL; i++) {
    p = attempt(grp, digest, sizeof(digest), ctx);
    EVP_Digest(digest, sizeof(digest), digest, NULL, md, NULL);
  }
  return p;
}
```