user: 请显示与下面列出的汇编代码相匹配的C语言实现：

```asm
<stdlib_strided_dnansumpw>:
  endbr64
  test   %edi,%edi
  jle    L301
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  mov    %rsi,%rbp
  push   %rbx
  mov    %edi,%ebx
  sub    $0x88,%rsp
  cmp    $0x1,%edi
  je     L369
  movslq %edx,%r12
  test   %r12d,%r12d
  je     L369
  mov    $0x0,%r13d
  jns    L120
  mov    $0x1,%r13d
  sub    %edi,%r13d
  imul   %r12d,%r13d
L120:
  cmp    $0x7,%ebx
  jle    L294
  cmp    $0x80,%ebx
  jle    L27
  mov    %ebx,%r13d
  sar    %r13d
  and    $0xfffffff8,%r13d
  test   %r12d,%r12d
  js     L157
  mov    %r12d,%eax
  imul   %r13d,%eax
  cltq
  lea    0x0(%rbp,%rax,8),%r14
L71:
  mov    %r12d,%edx
  mov    %rbp,%rsi
  mov    %r13d,%edi
  call   <stdlib_strided_dnansumpw>
  mov    %ebx,%edi
  mov    %r12d,%edx
  mov    %r14,%rsi
  sub    %r13d,%edi
  movsd  %xmm0,(%rsp)
  call   <stdlib_strided_dnansumpw>
  movsd  (%rsp),%xmm1
  addsd  %xmm0,%xmm1
L16:
  add    $0x88,%rsp
  movapd %xmm1,%xmm0
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L369:
  movsd  0x0(%rbp),%xmm0
  call   <stdlib_base_is_nan@plt>
  pxor   %xmm1,%xmm1
  test   %rax,%rax
  jne    L16
  movsd  0x0(%rbp),%xmm1
  jmp    L16
  nopw   0x0(%rax,%rax,1)
L157:
  mov    %r13d,%eax
  mov    %rbp,%r14
  sub    %ebx,%eax
  imul   %r12d,%eax
  cltq
  lea    0x0(%rbp,%rax,8),%rbp
  jmp    L71
  nopl   (%rax)
L294:
  movslq %r13d,%r13
  pxor   %xmm1,%xmm1
  shl    $0x3,%r12
  lea    0x0(%rbp,%r13,8),%rbp
  movq   %xmm1,%r15
  xor    %r13d,%r13d
L208:
  movsd  0x0(%rbp),%xmm0
  call   <stdlib_base_is_nan@plt>
  test   %rax,%rax
  jne    L138
  movq   %r15,%xmm3
  addsd  0x0(%rbp),%xmm3
  movq   %xmm3,%r15
L138:
  add    $0x1,%r13d
  add    %r12,%rbp
  cmp    %r13d,%ebx
  jne    L208
L305:
  movq   %r15,%xmm1
  jmp    L16
  nopl   0x0(%rax)
L301:
  pxor   %xmm1,%xmm1
  movapd %xmm1,%xmm0
  ret
  nopl   0x0(%rax)
L27:
  movslq %r13d,%rax
  lea    0x0(%rbp,%rax,8),%r14
  mov    %rax,0x40(%rsp)
  movsd  (%r14),%xmm0
  call   <stdlib_base_is_nan@plt>
  pxor   %xmm3,%xmm3
  movsd  %xmm3,(%rsp)
  test   %rax,%rax
  jne    L283
  movsd  (%r14),%xmm2
  movsd  %xmm2,(%rsp)
L283:
  add    %r12d,%r13d
  movslq %r13d,%rax
  lea    0x0(%rbp,%rax,8),%r14
  movsd  (%r14),%xmm0
  call   <stdlib_base_is_nan@plt>
  pxor   %xmm6,%xmm6
  movsd  %xmm6,0x8(%rsp)
  test   %rax,%rax
  jne    L244
  movsd  (%r14),%xmm2
  movsd  %xmm2,0x8(%rsp)
L244:
  add    %r12d,%r13d
  movslq %r13d,%rax
  lea    0x0(%rbp,%rax,8),%r14
  mov    %rax,0x50(%rsp)
  movsd  (%r14),%xmm0
  call   <stdlib_base_is_nan@plt>
  pxor   %xmm7,%xmm7
  movsd  %xmm7,0x10(%rsp)
  test   %rax,%rax
  jne    L297
  movsd  (%r14),%xmm6
  movsd  %xmm6,0x10(%rsp)
L297:
  add    %r12d,%r13d
  movslq %r13d,%rax
  lea    0x0(%rbp,%rax,8),%r14
  mov    %rax,0x58(%rsp)
  movsd  (%r14),%xmm0
  call   <stdlib_base_is_nan@plt>
  pxor   %xmm3,%xmm3
  movsd  %xmm3,0x18(%rsp)
  test   %rax,%rax
  jne    L205
  movsd  (%r14),%xmm7
  movsd  %xmm7,0x18(%rsp)
L205:
  add    %r12d,%r13d
  movslq %r13d,%rax
  lea    0x0(%rbp,%rax,8),%r14
  movsd  (%r14),%xmm0
  call   <stdlib_base_is_nan@plt>
  pxor   %xmm6,%xmm6
  movsd  %xmm6,0x20(%rsp)
  test   %rax,%rax
  jne    L227
  movsd  (%r14),%xmm4
  movsd  %xmm4,0x20(%rsp)
L227:
  add    %r12d,%r13d
  movslq %r13d,%rax
  lea    0x0(%rbp,%rax,8),%r14
  movsd  (%r14),%xmm0
  call   <stdlib_base_is_nan@plt>
  pxor   %xmm7,%xmm7
  movsd  %xmm7,0x28(%rsp)
  test   %rax,%rax
  jne    L146
  movsd  (%r14),%xmm5
  movsd  %xmm5,0x28(%rsp)
L146:
  add    %r12d,%r13d
  movslq %r13d,%rax
  lea    0x0(%rbp,%rax,8),%r14
  movsd  (%r14),%xmm0
  call   <stdlib_base_is_nan@plt>
  pxor   %xmm3,%xmm3
  movsd  %xmm3,0x30(%rsp)
  test   %rax,%rax
  jne    L151
  movsd  (%r14),%xmm3
  movsd  %xmm3,0x30(%rsp)
L151:
  add    %r12d,%r13d
  movslq %r13d,%rax
  lea    0x0(%rbp,%rax,8),%r14
  movsd  (%r14),%xmm0
  call   <stdlib_base_is_nan@plt>
  pxor   %xmm6,%xmm6
  movsd  %xmm6,0x38(%rsp)
  test   %rax,%rax
  je     L211
L308:
  mov    %ebx,%ecx
  lea    (%r12,%r13,1),%eax
  and    $0xfffffff8,%ecx
  mov    %ecx,0x68(%rsp)
  cmp    $0x8,%ecx
  je     L228
  lea    0x0(,%r12,8),%edx
  movslq %r12d,%r15
  mov    %ebx,0x78(%rsp)
  movslq %edx,%rdx
  mov    %rbp,0x70(%rsp)
  lea    0x0(,%rdx,8),%rcx
  movslq %eax,%rdx
  lea    (%rax,%r12,2),%eax
  mov    %r12d,0x7c(%rsp)
  mov    %rcx,0x60(%rsp)
  lea    (%rdx,%r15,4),%rcx
  lea    0x0(%rbp,%rdx,8),%r13
  add    %r12d,%eax
  lea    0x0(%rbp,%rcx,8),%r14
  mov    %r15,%rcx
  lea    (%rdx,%r15,2),%rdx
  mov    %eax,0x6c(%rsp)
  shl    $0x5,%rcx
  lea    0x0(%rbp,%rdx,8),%rsi
  mov    %rcx,0x48(%rsp)
  mov    $0x8,%ecx
  mov    %rsi,%rbx
  mov    %ecx,%ebp
  jmp    L219
  nop
L341:
  movsd  0x38(%rsp),%xmm6
  addsd  0x0(%r13,%r12,8),%xmm6
  movsd  %xmm6,0x38(%rsp)
L41:
  mov    0x60(%rsp),%rax
  add    $0x8,%ebp
  add    0x48(%rsp),%r13
  add    %rax,%r14
  add    %rax,%rbx
  cmp    %ebp,0x68(%rsp)
  jle    L135
L219:
  movsd  0x0(%r13),%xmm0
  call   <stdlib_base_is_nan@plt>
  pxor   %xmm0,%xmm0
  test   %rax,%rax
  jne    L258
  movsd  0x0(%r13),%xmm0
L258:
  addsd  (%rsp),%xmm0
  movsd  %xmm0,(%rsp)
  movsd  0x0(%r13,%r15,8),%xmm0
  call   <stdlib_base_is_nan@plt>
  pxor   %xmm0,%xmm0
  test   %rax,%rax
  jne    L90
  movsd  0x0(%r13,%r15,8),%xmm0
L90:
  addsd  0x8(%rsp),%xmm0
  movsd  %xmm0,0x8(%rsp)
  movsd  (%rbx),%xmm0
  call   <stdlib_base_is_nan@plt>
  pxor   %xmm0,%xmm0
  test   %rax,%rax
  jne    L103
  movsd  (%rbx),%xmm0
L103:
  addsd  0x10(%rsp),%xmm0
  movsd  %xmm0,0x10(%rsp)
  movsd  (%rbx,%r15,8),%xmm0
  call   <stdlib_base_is_nan@plt>
  pxor   %xmm0,%xmm0
  test   %rax,%rax
  jne    L370
  movsd  (%rbx,%r15,8),%xmm0
L370:
  addsd  0x18(%rsp),%xmm0
  movsd  %xmm0,0x18(%rsp)
  movsd  (%r14),%xmm0
  call   <stdlib_base_is_nan@plt>
  pxor   %xmm0,%xmm0
  test   %rax,%rax
  jne    L216
  movsd  (%r14),%xmm0
L216:
  addsd  0x20(%rsp),%xmm0
  movsd  %xmm0,0x20(%rsp)
  movsd  (%r14,%r15,8),%xmm0
  call   <stdlib_base_is_nan@plt>
  pxor   %xmm0,%xmm0
  test   %rax,%rax
  jne    L81
  movsd  (%r14,%r15,8),%xmm0
L81:
  addsd  0x28(%rsp),%xmm0
  mov    0x50(%rsp),%r12
  sub    0x40(%rsp),%r12
  movsd  %xmm0,0x28(%rsp)
  movsd  (%r14,%r12,8),%xmm0
  call   <stdlib_base_is_nan@plt>
  pxor   %xmm0,%xmm0
  test   %rax,%rax
  jne    L118
  movsd  (%r14,%r12,8),%xmm0
L118:
  addsd  0x30(%rsp),%xmm0
  add    0x48(%rsp),%r13
  mov    0x58(%rsp),%r12
  sub    0x40(%rsp),%r12
  movsd  %xmm0,0x30(%rsp)
  movsd  0x0(%r13,%r12,8),%xmm0
  call   <stdlib_base_is_nan@plt>
  test   %rax,%rax
  je     L341
  movsd  0x38(%rsp),%xmm7
  addsd  D8(%rip),%xmm7
  movsd  %xmm7,0x38(%rsp)
  jmp    L41
  nopl   0x0(%rax,%rax,1)
L135:
  mov    0x68(%rsp),%edx
  movslq 0x7c(%rsp),%r12
  mov    0x6c(%rsp),%eax
  mov    0x78(%rsp),%ebx
  sub    $0x9,%edx
  mov    %r12d,%ecx
  mov    0x70(%rsp),%rbp
  shr    $0x3,%edx
  lea    (%rax,%r12,4),%eax
  imul   %edx,%ecx
  add    %r12d,%eax
  lea    (%rax,%rcx,8),%eax
  lea    0x10(,%rdx,8),%ecx
  mov    %ecx,0x68(%rsp)
L228:
  movsd  0x8(%rsp),%xmm1
  movsd  0x18(%rsp),%xmm0
  addsd  (%rsp),%xmm1
  addsd  0x10(%rsp),%xmm0
  movsd  0x38(%rsp),%xmm2
  addsd  0x30(%rsp),%xmm2
  mov    0x68(%rsp),%r13d
  addsd  %xmm0,%xmm1
  movsd  0x20(%rsp),%xmm0
  addsd  0x28(%rsp),%xmm0
  addsd  %xmm2,%xmm0
  addsd  %xmm0,%xmm1
  cmp    %r13d,%ebx
  jle    L16
  cltq
  shl    $0x3,%r12
  movq   %xmm1,%r15
  lea    0x0(%rbp,%rax,8),%rbp
L193:
  movsd  0x0(%rbp),%xmm0
  call   <stdlib_base_is_nan@plt>
  test   %rax,%rax
  jne    L275
  movq   %r15,%xmm2
  addsd  0x0(%rbp),%xmm2
  movq   %xmm2,%r15
L275:
  add    $0x1,%r13d
  add    %r12,%rbp
  cmp    %r13d,%ebx
  jne    L193
  jmp    L305
  nop
L211:
  movsd  (%r14),%xmm2
  movsd  %xmm2,0x38(%rsp)
  jmp    L308
```

tool_calls: name: parse_data
arguments: label: D8
type_infered: f64

tool: D8: 0

assistant: ```c
double stdlib_strided_dnansumpw(const int64_t N, const double *X, const int64_t stride) {
  double *xp1;
  double *xp2;
  double sum;
  int64_t ix;
  int64_t M;
  int64_t n;
  int64_t i;
  double s0;
  double s1;
  double s2;
  double s3;
  double s4;
  double s5;
  double s6;
  double s7;
  if (N <= 0) {
    return 0.0;
  }
  if (N == 1 || stride == 0) {
    if (stdlib_base_is_nan(X[0])) {
      return 0.0;
    }
    return X[0];
  }
  if (stride < 0) {
    ix = (1 - N) * stride;
  } else {
    ix = 0;
  }
  if (N < 8) {
    sum = 0.0;
    for (i = 0; i < N; i++) {
      if (!stdlib_base_is_nan(X[ix])) {
        sum += X[ix];
      }
      ix += stride;
    }
    return sum;
  }
  if (N <= 128) {
    s0 = (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
    ix += stride;
    s1 = (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
    ix += stride;
    s2 = (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
    ix += stride;
    s3 = (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
    ix += stride;
    s4 = (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
    ix += stride;
    s5 = (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
    ix += stride;
    s6 = (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
    ix += stride;
    s7 = (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
    ix += stride;
    M = N % 8;
    for (i = 8; i < N - M; i += 8) {
      s0 += (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
      ix += stride;
      s1 += (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
      ix += stride;
      s2 += (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
      ix += stride;
      s3 += (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
      ix += stride;
      s4 += (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
      ix += stride;
      s5 += (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
      ix += stride;
      s6 += (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
      ix += stride;
      s7 += (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
      ix += stride;
    }
    sum = ((s0 + s1) + (s2 + s3)) + ((s4 + s5) + (s6 + s7));
    for (; i < N; i++) {
      if (!stdlib_base_is_nan(X[ix])) {
        sum += X[ix];
      }
      ix += stride;
    }
    return sum;
  }
  n = N / 2;
  n -= n % 8;
  if (stride < 0) {
    xp1 = (double *)X + ((n - N) * stride);
    xp2 = (double *)X;
  } else {
    xp1 = (double *)X;
    xp2 = (double *)X + (n * stride);
  }
  return stdlib_strided_dnansumpw(n, xp1, stride) + stdlib_strided_dnansumpw(N - n, xp2, stride);
}
```