user: Please show me the C implementation that matches the assembly code listed below:

```asm
<pow>:
  endbr64
  pxor   %xmm4,%xmm4
  movapd %xmm1,%xmm5
  movapd %xmm0,%xmm2
  comisd %xmm0,%xmm4
  jb     L52
  xorpd  D103(%rip),%xmm2
L52:
  mov    0x4(%rsp),%eax
  shr    $0x4,%eax
  and    $0xffff7ff,%eax
  ucomisd %xmm4,%xmm2
  jp     L15
  jne    L15
  sub    $0x3ff,%eax
  pxor   %xmm1,%xmm1
  cvtsi2sd %eax,%xmm1
L89:
  mulsd  %xmm5,%xmm1
  movsd  D85(%rip),%xmm0
  comisd D4(%rip),%xmm1
  ja     L73
  movsd  D156(%rip),%xmm2
  comisd %xmm1,%xmm2
  ja     L73
  cvttsd2si %xmm1,%eax
  pxor   %xmm0,%xmm0
  cvtsi2sd %eax,%xmm0
  subsd  %xmm0,%xmm1
  ucomisd %xmm4,%xmm1
  jp     L105
  movapd %xmm4,%xmm0
  je     L73
L105:
  comisd %xmm1,%xmm4
  movsd  D26(%rip),%xmm0
  jbe    L74
  nopl   (%rax)
L28:
  addsd  %xmm0,%xmm1
  comisd %xmm1,%xmm4
  ja     L28
L74:
  movsd  D122(%rip),%xmm0
  comisd %xmm0,%xmm1
  jb     L25
  subsd  %xmm0,%xmm1
L25:
  movapd %xmm1,%xmm0
  movsd  D147(%rip),%xmm2
  mulsd  %xmm1,%xmm0
  mulsd  %xmm0,%xmm2
  addsd  D13(%rip),%xmm0
  addsd  D177(%rip),%xmm2
  mulsd  %xmm1,%xmm2
  movapd %xmm0,%xmm1
  movapd %xmm2,%xmm0
  addsd  %xmm1,%xmm0
  subsd  %xmm2,%xmm1
  mulsd  %xmm4,%xmm0
  divsd  %xmm1,%xmm0
L73:
  ret
  nopl   (%rax)
L15:
  mulsd  D7(%rip),%xmm2
  movsd  D26(%rip),%xmm0
  sub    $0x3fe,%eax
  movsd  D111(%rip),%xmm3
  movapd %xmm2,%xmm1
  addsd  %xmm0,%xmm2
  subsd  %xmm0,%xmm1
  movapd %xmm1,%xmm0
  divsd  %xmm2,%xmm0
  movsd  D89(%rip),%xmm2
  movapd %xmm0,%xmm1
  mulsd  %xmm0,%xmm1
  mulsd  %xmm1,%xmm3
  addsd  D19(%rip),%xmm3
  mulsd  %xmm1,%xmm3
  addsd  D133(%rip),%xmm3
  mulsd  %xmm1,%xmm3
  addsd  D94(%rip),%xmm3
  mulsd  %xmm1,%xmm3
  addsd  %xmm3,%xmm2
  mulsd  %xmm0,%xmm2
  pxor   %xmm0,%xmm0
  mulsd  D10(%rip),%xmm2
  cvtsi2sd %eax,%xmm0
  addsd  %xmm0,%xmm2
  movapd %xmm2,%xmm1
  subsd  D122(%rip),%xmm1
  jmp    L89
```

tool_calls: name: unpack_data
arguments: data_label: D103
data_type: f32[4]
name: unpack_data
arguments: data_label: D85
data_type: f64
name: unpack_data
arguments: data_label: D4
data_type: f64[2]
name: unpack_data
arguments: data_label: D156
data_type: f32[2]
name: unpack_data
arguments: data_label: D26
data_type: f64
name: unpack_data
arguments: data_label: D122
data_type: f64
name: unpack_data
arguments: data_label: D147
data_type: f64
name: unpack_data
arguments: data_label: D13
data_type: f64
name: unpack_data
arguments: data_label: D177
data_type: f64
name: unpack_data
arguments: data_label: D7
data_type: f64
name: unpack_data
arguments: data_label: D111
data_type: f64
name: unpack_data
arguments: data_label: D89
data_type: f64
name: unpack_data
arguments: data_label: D19
data_type: f64
name: unpack_data
arguments: data_label: D133
data_type: f64
name: unpack_data
arguments: data_label: D94
data_type: f64
name: unpack_data
arguments: data_label: D10
data_type: f64

tool: {"D103": [0.0,-0.0,0.0,0.0]}

tool: D85: 1e+307

tool: {"D4": [1023.0,-1023.0]}

tool: {"D156": [0.0,-4.4990234375]}

tool: D26: 1

tool: D122: 0.5

tool: D147: 0.0576900723731

tool: D13: 20.8189237930062

tool: D177: 7.2152891511493

tool: D7: 1.4142135623730951

tool: D111: 0.2376245609

tool: D89: 2.000000000046727

tool: D19: 0.28525381498

tool: D133: 0.4000059794795

tool: D94: 0.666666635059382

tool: D10: 1.442695040888634

assistant: ```c
double pow(y, x)
double y, x;
{
  typedef union {
    double d;
    unsigned u[4];
  } DBL;
  double z, w, p, p2, q, re;
  unsigned ex;
  int iz;
  DBL *yp, *zp, *wp;
  yp = (DBL *)&y;
  if (yp->d <= 0.0)
    y = -y;
  z = 0.0;
  zp = (DBL *)&z;
  zp->u[3] = yp->u[3] & ~0100017;
  iz = (zp->u[3] >> 4) - 1023;
  if ((yp->d - zp->d) == 0.0)
    z = (double)iz;
  else {
    yp->u[3] -= ++iz << 4;
    yp->d *= 1.4142135623730950488;
    p = (yp->d - 1.0) / (yp->d + 1.0);
    p2 = p * p;
    z = p * (2.000000000046727 + p2 * (0.666666635059382 + p2 * (0.4000059794795 + p2 * (0.28525381498 + p2 * 0.2376245609))));
    z = z * 1.442695040888634 + (double)iz - 0.5;
  }
  z *= x;
  w = 0.0;
  wp = (DBL *)&w;
  if (zp->d > 1023.0 || zp->d < -1023.0)
    return (1E307);
  iz = (int)zp->d;
  wp->u[3] += iz + 1023 << 4;
  wp->u[3] &= ~0100017;
  if ((zp->d -= (double)iz) == 0.0)
    return (wp->d);
  while (zp->d < 0.0) {
    wp->u[3] -= 1 << 4;
    wp->u[3] &= ~0100017;
    zp->d++;
  }
  if (zp->d >= 0.5) {
    zp->d -= 0.5;
    re = 1.41421356237309504880;
  } else
    re = 1.0;
  p2 = zp->d * zp->d;
  p = zp->d * (7.2152891511493 + p2 * 0.0576900723731);
  q = 20.8189237930062 + p2;
  zp->d = re * wp->d * (q + p) / (q - p);
  return (zp->d);
}
```