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

```asm
<pochisq>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x50,%rsp
  movsd  %xmm0,-0x48(%rbp)
  mov    %edi,-0x4c(%rbp)
  pxor   %xmm0,%xmm0
  comisd -0x48(%rbp),%xmm0
  jae    L117
  cmpl   $0x0,-0x4c(%rbp)
  jg     L42
L117:
  movsd  D48(%rip),%xmm0
  jmp    L98
L42:
  movsd  -0x48(%rbp),%xmm1
  movsd  D105(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  mov    -0x4c(%rbp),%eax
  mov    %eax,%edx
  shr    $0x1f,%edx
  add    %edx,%eax
  sar    %eax
  add    %eax,%eax
  cmp    %eax,-0x4c(%rbp)
  sete   %al
  movzbl %al,%eax
  mov    %eax,-0x34(%rbp)
  cmpl   $0x1,-0x4c(%rbp)
  jle    L21
  movsd  -0x8(%rbp),%xmm0
  comisd D28(%rip),%xmm0
  jbe    L74
  mov    D76(%rip),%rax
  jmp    L132
L74:
  movsd  -0x8(%rbp),%xmm0
  movq   D119(%rip),%xmm1
  xorpd  %xmm1,%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <exp@plt>
  movq   %xmm0,%rax
L132:
  mov    %rax,-0x30(%rbp)
L21:
  cmpl   $0x0,-0x34(%rbp)
  jne    L96
  mov    -0x48(%rbp),%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <ntail@plt>
  addsd  %xmm0,%xmm0
  jmp    L106
L96:
  movsd  -0x30(%rbp),%xmm0
L106:
  movsd  %xmm0,-0x28(%rbp)
  cmpl   $0x2,-0x4c(%rbp)
  jle    L107
  pxor   %xmm0,%xmm0
  cvtsi2sdl -0x4c(%rbp),%xmm0
  movsd  D48(%rip),%xmm2
  movapd %xmm0,%xmm1
  subsd  %xmm2,%xmm1
  movsd  D105(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x48(%rbp)
  cmpl   $0x0,-0x34(%rbp)
  je     L13
  movsd  D48(%rip),%xmm0
  jmp    L176
L13:
  movsd  D105(%rip),%xmm0
L176:
  movsd  %xmm0,-0x10(%rbp)
  movsd  -0x8(%rbp),%xmm0
  comisd D28(%rip),%xmm0
  jbe    L71
  cmpl   $0x0,-0x34(%rbp)
  je     L2
  pxor   %xmm0,%xmm0
  jmp    L1
L2:
  movsd  D15(%rip),%xmm0
L1:
  movsd  %xmm0,-0x20(%rbp)
  mov    -0x8(%rbp),%rax
  movq   %rax,%xmm0
  call   <log@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x18(%rbp)
  jmp    L97
L192:
  mov    -0x10(%rbp),%rax
  movq   %rax,%xmm0
  call   <log@plt>
  movsd  -0x20(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x20(%rbp)
  movsd  -0x18(%rbp),%xmm0
  mulsd  -0x10(%rbp),%xmm0
  subsd  -0x8(%rbp),%xmm0
  movapd %xmm0,%xmm1
  subsd  -0x20(%rbp),%xmm1
  movsd  D53(%rip),%xmm0
  comisd %xmm1,%xmm0
  jbe    L164
  mov    D76(%rip),%rax
  jmp    L226
L164:
  movsd  -0x18(%rbp),%xmm0
  mulsd  -0x10(%rbp),%xmm0
  subsd  -0x8(%rbp),%xmm0
  subsd  -0x20(%rbp),%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <exp@plt>
  movq   %xmm0,%rax
L226:
  movsd  -0x28(%rbp),%xmm0
  movq   %rax,%xmm3
  addsd  %xmm3,%xmm0
  movsd  %xmm0,-0x28(%rbp)
  movsd  -0x10(%rbp),%xmm1
  movsd  D48(%rip),%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x10(%rbp)
L97:
  movsd  -0x48(%rbp),%xmm0
  comisd -0x10(%rbp),%xmm0
  jae    L192
  movsd  -0x28(%rbp),%xmm0
  jmp    L98
L71:
  cmpl   $0x0,-0x34(%rbp)
  jne    L178
  mov    -0x8(%rbp),%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movapd %xmm0,%xmm1
  movsd  D9(%rip),%xmm0
  divsd  %xmm1,%xmm0
  jmp    L185
L178:
  movsd  D48(%rip),%xmm0
L185:
  movsd  %xmm0,-0x20(%rbp)
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x18(%rbp)
  jmp    L222
L66:
  movsd  -0x8(%rbp),%xmm0
  divsd  -0x10(%rbp),%xmm0
  movsd  -0x20(%rbp),%xmm1
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x20(%rbp)
  movsd  -0x18(%rbp),%xmm0
  addsd  -0x20(%rbp),%xmm0
  movsd  %xmm0,-0x18(%rbp)
  movsd  -0x10(%rbp),%xmm1
  movsd  D48(%rip),%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x10(%rbp)
L222:
  movsd  -0x48(%rbp),%xmm0
  comisd -0x10(%rbp),%xmm0
  jae    L66
  movsd  -0x18(%rbp),%xmm0
  mulsd  -0x30(%rbp),%xmm0
  addsd  -0x28(%rbp),%xmm0
  jmp    L98
L107:
  movsd  -0x28(%rbp),%xmm0
L98:
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  leave
  ret
```

tool_calls: name: parse_data
arguments: label: D48
type_infered: f64
name: parse_data
arguments: label: D105
type_infered: f64
name: parse_data
arguments: label: D28
type_infered: f64[2]
name: parse_data
arguments: label: D76
type_infered: f64
name: parse_data
arguments: label: D119
type_infered: byte[8]
name: parse_data
arguments: label: D15
type_infered: f64
name: parse_data
arguments: label: D53
type_infered: byte[8]
name: parse_data
arguments: label: D9
type_infered: f64

tool: D48: 1

tool: D105: 0.5

tool: {"D28": [20.0,-0.0]}

tool: D76: 0

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

tool: D15: 0.5723649429247001

tool: {"D53": [0x00,0x00,0x00,0x00,0x00,0x00,0x34,0xc0]}

tool: D9: 0.5641895835477563

assistant: ```c
double pochisq(double x, int df) {
  double a, y, s;
  double e, c, z;
  double poz();
  int even;
  if (x <= 0.0 || df < 1)
    return (1.0);
  a = 0.5 * x;
  even = (2 * (df / 2)) == df;
  if (df > 1)
    y = (((-a) < -20.0) ? 0.0 : exp(-a));
  s = (even ? y : (2.0 * ntail(sqrt(x))));
  if (df > 2) {
    x = 0.5 * (df - 1.0);
    z = (even ? 1.0 : 0.5);
    if (a > 20.0) {
      e = (even ? 0.0 : 0.5723649429247000870717135);
      c = log(a);
      while (z <= x) {
        e = log(z) + e;
        s += (((c * z - a - e) < -20.0) ? 0.0 : exp(c * z - a - e));
        z += 1.0;
      }
      return (s);
    } else {
      e = (even ? 1.0 : (0.5641895835477562869480795 / sqrt(a)));
      c = 0.0;
      while (z <= x) {
        e = e * (a / z);
        c = c + e;
        z += 1.0;
      }
      return (c * y + s);
    }
  } else
    return (s);
}
```