user: 请将以下的汇编代码转换成C语言代码:

```asm
<inverse_transform>:
  endbr64
  push   %r14
  movq   %xmm2,%r14
  push   %rbx
  mov    %rdi,%rbx
  sub    $0x38,%rsp
  movsd  %xmm0,(%rsp)
  movapd %xmm1,%xmm0
  movsd  %xmm1,0x8(%rsp)
  call   <isinf@plt>
  test   %rax,%rax
  jne    L87
  movq   %r14,%xmm0
  call   <isinf@plt>
  test   %rax,%rax
  jne    L72
L87:
  movq   %r14,%xmm0
  call   <isinf@plt>
  test   %rax,%rax
  je     L45
L66:
  movq   %r14,%xmm0
  call   <isinf@plt>
  test   %rax,%rax
  jne    L64
L0:
  movsd  (%rsp),%xmm6
  pxor   %xmm7,%xmm7
  comisd %xmm7,%xmm6
  jbe    L77
  movapd %xmm6,%xmm0
  xorpd  D24(%rip),%xmm0
  call   <exp@plt>
  movsd  D20(%rip),%xmm6
  movq   %r14,%xmm1
  movsd  D20(%rip),%xmm2
  subsd  0x8(%rsp),%xmm1
  movsd  %xmm0,0x28(%rsp)
  addsd  %xmm0,%xmm6
  movapd %xmm1,%xmm0
  movsd  %xmm1,0x18(%rsp)
  divsd  %xmm6,%xmm2
  movsd  %xmm2,0x20(%rsp)
  call   <log@plt>
  movsd  0x28(%rsp),%xmm4
  movapd %xmm0,%xmm3
  subsd  (%rsp),%xmm3
  movapd %xmm4,%xmm0
  movsd  %xmm3,0x10(%rsp)
  call   <log1p@plt>
  pxor   %xmm0,%xmm0
  movsd  0x10(%rsp),%xmm3
  add    %eax,%eax
  cvtsi2sd %eax,%xmm0
  subsd  %xmm0,%xmm3
  addsd  (%rbx),%xmm3
  movsd  (%rsp),%xmm0
  movsd  %xmm3,(%rbx)
  call   <isinf@plt>
  movsd  0x18(%rsp),%xmm1
  movsd  0x20(%rsp),%xmm2
  test   %rax,%rax
  jne    L44
  ucomisd D20(%rip),%xmm2
  mov    $0x0,%edx
  setnp  %al
  cmovne %edx,%eax
  test   %al,%al
  jne    L37
L44:
  mulsd  %xmm1,%xmm2
  movsd  0x8(%rsp),%xmm0
  addsd  %xmm2,%xmm0
L69:
  add    $0x38,%rsp
  pop    %rbx
  pop    %r14
  ret
  nopl   (%rax)
L45:
  movsd  0x8(%rsp),%xmm0
  call   <isinf@plt>
  test   %rax,%rax
  je     L66
  movsd  (%rsp),%xmm6
  movsd  (%rbx),%xmm0
  addsd  %xmm6,%xmm0
  movsd  %xmm0,(%rbx)
  movapd %xmm6,%xmm0
  call   <exp@plt>
  movapd %xmm0,%xmm1
  movq   %r14,%xmm0
  subsd  %xmm1,%xmm0
  jmp    L69
  nopl   (%rax)
L77:
  movapd %xmm6,%xmm0
  call   <exp@plt>
  movsd  D20(%rip),%xmm2
  movapd %xmm0,%xmm1
  movsd  %xmm0,0x28(%rsp)
  addsd  %xmm2,%xmm1
  movapd %xmm2,%xmm5
  divsd  %xmm1,%xmm5
  movq   %r14,%xmm1
  subsd  0x8(%rsp),%xmm1
  movapd %xmm1,%xmm0
  movsd  %xmm1,0x18(%rsp)
  subsd  %xmm5,%xmm2
  movsd  %xmm2,0x20(%rsp)
  call   <log@plt>
  movsd  (%rsp),%xmm3
  movsd  0x28(%rsp),%xmm4
  addsd  %xmm0,%xmm3
  movapd %xmm4,%xmm0
  movsd  %xmm3,0x10(%rsp)
  call   <log1p@plt>
  pxor   %xmm0,%xmm0
  movsd  0x10(%rsp),%xmm3
  add    %eax,%eax
  cvtsi2sd %eax,%xmm0
  subsd  %xmm0,%xmm3
  addsd  (%rbx),%xmm3
  movsd  (%rsp),%xmm0
  movsd  %xmm3,(%rbx)
  call   <isinf@plt>
  movsd  0x20(%rsp),%xmm2
  pxor   %xmm7,%xmm7
  mov    $0x0,%ecx
  movsd  0x18(%rsp),%xmm1
  ucomisd %xmm7,%xmm2
  setnp  %dl
  cmovne %ecx,%edx
  test   %dl,%dl
  je     L44
  test   %rax,%rax
  jne    L44
  movsd  D7(%rip),%xmm2
  jmp    L44
  nopl   0x0(%rax)
L64:
  movsd  0x8(%rsp),%xmm0
  call   <isinf@plt>
  movsd  (%rsp),%xmm0
  test   %rax,%rax
  je     L0
  jmp    L69
  xchg   %ax,%ax
L37:
  movsd  D47(%rip),%xmm2
  jmp    L44
  nopl   (%rax)
L72:
  movsd  (%rsp),%xmm5
  movsd  (%rbx),%xmm0
  addsd  %xmm5,%xmm0
  movsd  %xmm0,(%rbx)
  movapd %xmm5,%xmm0
  call   <exp@plt>
  addsd  0x8(%rsp),%xmm0
  add    $0x38,%rsp
  pop    %rbx
  pop    %r14
  ret
```

tool_calls: name: retrieve_data
arguments: data_tag: D24
type: byte[16]
name: retrieve_data
arguments: data_tag: D20
type: f64
name: retrieve_data
arguments: data_tag: D7
type: byte[8]
name: retrieve_data
arguments: data_tag: D47
type: byte[8]

tool: {"D24": [0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00]}

tool: D20: 1

tool: {"D7": [0x16,0x56,0xe7,0x9e,0xaf,0x03,0xd2,0x3c]}

tool: {"D47": [0xf7,0xff,0xff,0xff,0xff,0xff,0xef,0x3f]}

assistant: ```c
double inverse_transform(double z, double lb, double ub, double *lp) {
  if (!isinf(lb) && isinf(ub)) {
    *lp += z;
    return exp(z) + lb;
  } else if (!isinf(ub) && isinf(lb)) {
    *lp += z;
    return ub - exp(z);
  } else if (isinf(ub) && isinf(lb)) {
    return z;
  }
  double inv_logit_x;
  if (z > 0) {
    double exp_minus_x = exp(-z);
    inv_logit_x = 1.0 / (1.0 + exp_minus_x);
    *lp += log(ub - lb) - z - 2 * log1p(exp_minus_x);
    if (!isinf(z) && inv_logit_x == 1)
      inv_logit_x = 1 - 1e-15;
  } else {
    double exp_x = exp(z);
    inv_logit_x = 1.0 - 1.0 / (1.0 + exp_x);
    *lp += log(ub - lb) + z - 2 * log1p(exp_x);
    if (!isinf(z) && inv_logit_x == 0)
      inv_logit_x = 1e-15;
  }
  return lb + (ub - lb) * inv_logit_x;
}
```