user: 请将这段汇编代码片段转换成等效的C代码：

```asm
<stdlib_strided_dcuminabs>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x40,%rsp
  mov    %edi,-0x24(%rbp)
  mov    %rsi,-0x30(%rbp)
  mov    %edx,-0x28(%rbp)
  mov    %rcx,-0x38(%rbp)
  mov    %r8d,-0x3c(%rbp)
  cmpl   $0x0,-0x24(%rbp)
  jle    L10
  cmpl   $0x0,-0x28(%rbp)
  jns    L145
  mov    $0x1,%eax
  sub    -0x24(%rbp),%eax
  mov    -0x28(%rbp),%edx
  imul   %edx,%eax
  mov    %eax,-0x1c(%rbp)
  jmp    L128
L145:
  movl   $0x0,-0x1c(%rbp)
L128:
  cmpl   $0x0,-0x3c(%rbp)
  jns    L141
  mov    $0x1,%eax
  sub    -0x24(%rbp),%eax
  mov    -0x3c(%rbp),%edx
  imul   %edx,%eax
  mov    %eax,-0x18(%rbp)
  jmp    L32
L141:
  movl   $0x0,-0x18(%rbp)
L32:
  mov    -0x1c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x30(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movq   D17(%rip),%xmm1
  andpd  %xmm1,%xmm0
  movsd  %xmm0,-0x10(%rbp)
  mov    -0x18(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x10(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x3c(%rbp),%eax
  add    %eax,-0x18(%rbp)
  movl   $0x1,-0x14(%rbp)
  mov    -0x10(%rbp),%rax
  movq   %rax,%xmm0
  call   <stdlib_base_is_nan@plt>
  test   %rax,%rax
  jne    L37
  jmp    L127
L59:
  mov    -0x28(%rbp),%eax
  add    %eax,-0x1c(%rbp)
  mov    -0x1c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x30(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movq   D17(%rip),%xmm1
  andpd  %xmm1,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  mov    -0x8(%rbp),%rax
  movq   %rax,%xmm0
  call   <stdlib_base_is_nan@plt>
  test   %rax,%rax
  je     L14
  movsd  -0x8(%rbp),%xmm0
  movsd  %xmm0,-0x10(%rbp)
  jmp    L37
L14:
  movsd  -0x10(%rbp),%xmm0
  comisd -0x8(%rbp),%xmm0
  jbe    L68
  movsd  -0x8(%rbp),%xmm0
  movsd  %xmm0,-0x10(%rbp)
L68:
  mov    -0x18(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x10(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x3c(%rbp),%eax
  add    %eax,-0x18(%rbp)
  addl   $0x1,-0x14(%rbp)
L127:
  mov    -0x14(%rbp),%eax
  cmp    -0x24(%rbp),%eax
  jl     L59
L37:
  mov    -0x10(%rbp),%rax
  movq   %rax,%xmm0
  call   <stdlib_base_is_nan@plt>
  test   %rax,%rax
  je     L30
  jmp    L31
L54:
  mov    -0x18(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x10(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x3c(%rbp),%eax
  add    %eax,-0x18(%rbp)
  addl   $0x1,-0x14(%rbp)
L31:
  mov    -0x14(%rbp),%eax
  cmp    -0x24(%rbp),%eax
  jl     L54
  jmp    L30
L10:
  nop
  jmp    L58
L30:
  nop
L58:
  leave
  ret
```

tool_calls: name: unpack_data
arguments: label: D17
type: qword

tool: D17: 9223372036854775807

assistant: ```c
void stdlib_strided_dcuminabs(const int64_t N, const double *X, const int64_t strideX, double *Y, const int64_t strideY) {
  double min;
  int64_t ix;
  int64_t iy;
  int64_t i;
  double v;
  if (N <= 0) {
    return;
  }
  if (strideX < 0) {
    ix = (1 - N) * strideX;
  } else {
    ix = 0;
  }
  if (strideY < 0) {
    iy = (1 - N) * strideY;
  } else {
    iy = 0;
  }
  min = fabs(X[ix]);
  Y[iy] = min;
  iy += strideY;
  i = 1;
  if (!stdlib_base_is_nan(min)) {
    for (; i < N; i++) {
      ix += strideX;
      v = fabs(X[ix]);
      if (stdlib_base_is_nan(v)) {
        min = v;
        break;
      }
      if (v < min) {
        min = v;
      }
      Y[iy] = min;
      iy += strideY;
    }
  }
  if (stdlib_base_is_nan(min)) {
    for (; i < N; i++) {
      Y[iy] = min;
      iy += strideY;
    }
  }
  return;
}
```